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IDENTIFICATION 
PRODUCT CODE: AC-8781G-MC 
PRODUCT NAME : C2DZAGO DZ11 LN ASYNC MUX TSTS 
PRODUCT DATE: OCT 1981 
MAINTAINER: MK-DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRCRS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY 


OF SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL 
OR ITS AFFILIATED COMPANIES. 


COPYRIGHT (C) 1976,1981 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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ABS TBACT 


THE FUNCTION OF THE DZ11 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE D211 
OPERATES IN ITS ENVIRONMENT Si'cH AS THE SYSTEM IN WHICH IT IS INSTALLED. 


PARAMETERS MAY BE SUPPLIED TO THE PROGRAM BY EJTHER ‘AUTO SIZING* OR 
INPUT FROM THE USER ON THE CONSOLE BY HAVING we AT START TIME. AUTO 


SIZING WILL BE DONE ONLY THE FIRST TIME THE OGRAM IS STARTED AND 
SwO07=0 SWOO=0 AND SwWO3=0. THE AUTOSIZER IS DESIGNED TO _ DETECT 
DZ11 DEVICE ADDRESSES AND VECTORS AND TO DETERMINE WHETHER THE DZ11 THAT 
IS DETECTED IS AN EIA OR 20MA BOARD. ALL REMAINING PARAMETERS DEFAULT 
TO CERTAIN ed (SEE SEC.8. .< CONSOLE INPUT MAY BE CONTROLLED AT ANY 
START TIME THE USE OF SWOS, SWO4, AND SWO6 (SEF SEC. 4.1.1 
FOR A DETAILED DESCRIPTION OF THE Sé SWITCHES). 


CURRENTLY THERE IS ONE STANDALONE DIAGNOSTIC (CZDZA), 
FOR DEC x/11 (DZAA), 
(ITEP) = DZDZA. 


CZDZA WILL TEST ALL i OF THE DZ11 SUCH AS CABLES, DIST PNL. 
INTERFACE MODULE ITSELF 


REQUIREMENTS 
EQUIPMENT 


ANY PDP17 FAMILY CPU (WITH MINIMUM . MEMORY ) 
ASR 33 (OR EQUILIVALENT FOR CONSOLE 


ONE SYSTEM 
AND AN ONLINE OVERLAY FOR DZiTA (ITEP) - DZDZB. 


DZ11 INTERFACE MODULE (M7819(E IA), M7814 (20MA) ) 

43271 STAGGERED TURNAROUND CONNECTOR FOR EIA MODULE. 

43190 STAGGERED TURNAROUND CONNECTOR FOR 20MA MODULE. 

H325 CABLE TURNAROUND AND DIST PNL TESTING FOR EIA MODULE. 
4315 THIS MAY BE SUBSITUTED FOR H325. 


NOTE: & STAGGERED TURNAROUND CONNECTOR IS NEEDED IN ORDER TO TEST THE 
PARITY AND BREAK LOGIC. 
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PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 2000 ARE ESPECIALLY TO BE NOTED AND TO BE 
NTOUCHED BY OPERATOR AFTER PARAMETERS HAVE BEEN INPUT FROM CONSOLE 

“)O=1); OR AFTER THE ‘AUTO SIZING* HAS BEEN DONE. THESE LOCATIONS 
Ma, BE CHANGED IF THE USER UNDERSTANDS THEIR MEANING AND DIFFERENT 
PARAMETERS ARE RF QUIRED. 


LOADING PROCEEDURE 

ME THOD 

ALL PROGRAMS ARE " ABSOLUTE FORMAT AND ARE a USING THE ABSOLUTE 

LOADER. NOTE: IF THE DIAGNOSTICS ARE ON MEDIA SUCH AS_ DISK 
MAGTAPE ,.DECTAPE, OR CASSETTE; FOLLOW INSTRUCT IONS FOR THE MONITOR 

WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS *500 

MEMORY * SIZE 


aK 


— 
. 
~— SW 


7 
7 
7 
7 
17 
37 
57 
PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 
(ALSO PLACE *HALT* SW UP) 


DEPRESS ‘LOAD ADDRESS* KEY ON CONSOLE AND RELEASE. 


DEPRESS ‘START KEY" ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW BE 
LOADING INTO CPU) 
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STARTING PROCEEDURE 


A. SET SWITCH REGISTER TO 000200 

B. DEPRESS ‘LOAD ADDRESS’ KEY AND RELEASE 

C. SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SET SWOO=1 FOR USER PARAMETER 
INPUT FROM CONSOLE TERMINAL. ON FIRST START IF SWO7=1 AND SWOO=0 
THE PROGRAM WILL DEFAULT TO CONSOLE PARAMETER INPUT (SWOO=1). 

D. DEPRESS ‘START KEY" AND RELEASE, THE PROGRAM WILL TYPE MAINDEC NAME 
AND PROGRAM NAME (IF THIS WAS THE FIRST START UP OF THE PROGRAM OR 
PARAMETERS WERE CHANGED BY SWOO=1) AND ALSO THE FOLLOWING: 


"MAP OF DZ11 STATUS" 
1500 160100 


1504 000005 
1506 000377 
1510 017070 
1512 000000 


THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS’ TABLE 
STARTING AT AOD. 1500 IN THE PROGRAM. THE STATUS TABLE MUST BE 
VERIFIED BY THE USER IF AUTO Samat IS DONE. FOR INFORMATION OF STATUS 
TABLE SEE SECTION 8.4 FOR HELP 

THE PROGRAM WILL TYPE ‘'RUNNING'’ AND PROCEED TO RUN THE DIAGNOSTIC. 


CONTROL SWITCH SETTINGS 


NOTE: IF THERE IS NO REAL SWR (177570); SWR MAY BE MODIFIED AT 
LOC:176 OR BY HITTING CONTROL ‘'G’’ <*G> ON CONSOLE TERMINAL. 


Sw 15 SET: HALT ON ERROR 
SW 14 SET: LOOP ON CURRENT TEST 
SW 15 SET: INHIBIT ERROR PRINT OUT 
SW 12 SET: INHIBIT **ALL** TYPE OUT/BELL ON ERROR. 
Sw 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 
Sw 10 SET: ESCAPE TO NEXT TEST 
Sw 09 SET: LOOP WITH CURRENT DATA 
SW 08 SET: CATCH ERROR AND LOOP ON IT 
SW O07 SET: NO AUTO SIZE. IF 1ST START OF PROGRAM AFTER LOADING THE 
OPERATOR MUST INPUT ADDRESS AND VECTOR FROM CONSOLE. 
SW 06 SET: RESELECT DZ11°S DESIRED ACTIVE 
SW O05 SET: RESERVED 
SW 04 SET: SELECT DELAY PARAMETER (SEE SEC. 4.7.1) 
Sw 03 SET: EXTRA PARAMETER INPUT (SEE SEC. 4.1.1) 
SW O02 SET: LOCK ON SELECTED TEST 
**SW 01 SET: RESTART PROGRAM AT SELECTED TEST 
*SW 00 SET: GET USERS PARAMETERS FROM CONSOLE 
* FOR ECHO OR CABLE TESTS (PROGRAM STARTED AT LOC. 210) THIS 
SWITCH SET TO 1 ALLOWS THE USER TO TYPE IN THE VECTOR AND THE 
CSR FOR THE DZ11 UNDER TEST. 
ali FOR ECHO OR CABLE TEST THIS SWITCH SET TO 71 ALLOWS THE SELECTION 
Sh eee ECHO OR CABLE TEST, BAUD RATE, AND THE LINE NUMBER 
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4.1.1 SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 


Sw 00 GET USERS PARAMETERS FROM CONSOLE. SETTING THiS SWITCH AT START 
UP TIME AL'OWS THE USER TO INPUT AT THE CONSOLE TERMINAL THE 
FOLLOWING PARAMETERS: BASE DEVICE ADDRESS, BASE VECTOR ADDRESS, 
BUS REQUEST LEVEL, DECLARE EIA OR 20MA MODULE, MODE OF OPERATION 
(EXTERNAL, INTERNAL, OR STAGGERED), AND THE NUMBER OF DZ11°S THAT 
ARE RUNNING. USING THIS SWITCH ALONE DEFAULTS THE FOLLOWING 
PARAMETERS: ALL 8 LINES ARE SET TO BE TESTED ON EACH DZ11, THE 
DEFAULT BAUD RATE IS SET AT 9600 BAUD, AND THE CHARACTER LENGTH 
FOR THE MAJORITY OF TESTING IS SET AT EIGHT BITS PER CHARACTER 
WITH TWO STOP BITS. 


Sw 03 EXTRA PARAMETER INPUT. SETTING THIS SWITCH AT START UP TIME 
PROVIDES THE USER WITH THE ABILITY TO SET THE LINES ACTIVE FOR 
TESTING AND TO SET THE DEFAULT BAUD RATE USED FOR THE MAJORITY 
OF THE DIAGNOSTIC TESTS. THE DELAY PARAMETER IS AUTOMATICALLY 
ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 


SW 04 SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH CONTROLS 
DETERMINES THE LENGTH OF TIME THE PROGRAM STALLS WAITING FOR A 
CHARACTER TO BE COMPLETELY TRANSMITTED OR RECEIVED. THIS DELAY 
COUNT IS AUTOMATICALLY SET TO PROVIDE ENOUGH DELAY TIME FOR THE 
DEFAULT BAUD RATE SPECIFIED WHEN RUNNING THE PROGRAM ON AN 11/45 
WITH BIPOLAR MEMORY. WHEN RUNNING THIS PROGRAM ON A FASTER 
PROCESSOR THE DELAY PARAMETER SHOULD BE ADJUSTED PROPORTIONALLY 
HIGHER THAN THE FOLLOWING DEFAULTED VALUES: 

2450 F 50 BAUD 


: OR 
1560 3; TIME FOR 75 BAUD 
1120 :TIME FOR 110 BAUD 
0750 ;TIME FOR 134 BAUD 
0660 ;TIME FOR 150 BAUD 
0330 ;TIME FOR 300 BAUD 
0150 ;TIME FOR 600 BAUD 
0060 ;TIME FOR 1200 BAUD 
0040 ; TIME FOR 1800 BAUD 
0030 ;TIME FOR 2000 BAUD 
0020 ;TIME FOR 2400 BAUD 
0010 ;TIME FOR 3600 BAUD 
0001 ; TIME FOR 4800 BAUD 
0001 :TIME FOR 7200 BAUD 
0001 : TIME FOR 9600 BAUD 
0001 :TIME FOR 19.2 KBAUD 
exe NOTE «** 


19.2K BAUD IS AN UNSUPPORTED BAUD RATE. IT SHOULD NOT NORMALLY BE USED. 
9600 BAUD IS THE SPECIFIED MAXIMUM. 
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SWITCH REGISTER RESTRICTIONS 


Sw 06 


m~”m 


SW 01 


Sw 09 


SW 04 


RESELECT DZ11°S DESIRED ACTIVE. PLEASE NOTE THAT A MESSAGE IS 
TYPED OUT FOR SETTING THE SWITCH REGISTER EQUAL 19 DZ11°S 
ACTIVE. THIS MEANS IF THE SYSTEM HAS FOUR 0DZ11S; _ BITS 
"DZACTV’ FROM THE SWITCH 
REGISTER. USING THIS ALTERS THAT 
LOCATION; THEREFORE IF FOUR DZ11S ARE IN THE SYSTEM ***D0 NOT*** 
SET SWITCHES GREATER THAN SW 03 IN THE UP POSITION. THIS WOULD 
BE A FATAL ERROR. DO NOT SELECT MORE ACTIVE DZ11S THAN HAS BEEN 
GIVEN INFORMATION ABOUT IN PARAMETER INPUT (SWOO=1) 
LOAD ADDRESS 200 
START WITH SW 06=1 
PROGRAM WILL TYPE MESSAGE 
SET THE BINARY NUMBER OF DZ11S DESIRED ACTIVE EXAMPLE: 1=1 
art 3=2 D211; 7=3 D211; +17=4 DZ11 37=5 DZ11 ETC/AA PRESS 


NUE . 
NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05) 
SET WITH ANY OTHER SWITCH SETTINGS DESIRED. PRESS CONTINUE. 


RESTART PROGRAM AT SELECTED TEST IT IS STRONGLY SUGGESTED 
THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE TRYING TO SELECT A 
TEST THAT IS NOT IN THE ORDER OF SEQUENCE THE REASON BEING IS 
THAT THE PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
NOTE: IF RUNNING MULTIPLE DZ11°S; THE DZ11 YOU DESIRE TO BE 
UNDER TEST MUST BE SELECTED BY THE USE OF SWO6 BEFORE LOCKING ON 
THE TEST. IN OTHER WORDS; EACH TIME THE PROGRAM IS_ STARTED; 
THE FIRST D211 WILL BE SELECTED TO BE UNDER TEST UNLESS SWO06 IS 
USED TO SELECT ONLY ONE. 


LOOP ON CURRENT DATA: THIS SWITCH WILL ONLY WORK IF _ CALL 
*SCOP1" IS IN THAT TEST. THE REASON BEING THAT MOST TESTS DEAL 
WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR RECEIVED ALL AT ONCE 
THUS IN BLOCK DATA, ONE PATTERN CAN'T BE SINGLED OUT. 

THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLE- 
SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT MEANT 
TO BE USED AS A GENERAL USER CONTROL SWITCH. 


SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 
AS TOO SHORT A DELAY WILL CAUSE VALID TESTS TO FAIL ON CERTAIN 
PROCESSORS. IT IS RECOMMENDED THAT THIS SWITCH ONLY BE USED 
IN. CONJUNCTION WITH SCOPE LOOPS, E.G, SW 14,9,4,1 SET: Sw 9,4, 

SET. THE SHORTEST PARAMETER IS 1: THE LONGEST ACCEPTED IS 
cobs (SEE SEC. 4.1.1) 
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SEQ 0006 
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5910 
SS$11 
5318 ‘1. SWITCH REGISTER PRIORITIES 
914 ERROR SWITCHES 
5914 1. SW 12. DELETE PRINT OUT/BELL ON ERROR. 
5917 4 Sw 13 DELETE ERROR PRINTOUT. 
6918 3. Sw 15 HALT ON THE ERROR. 
§919 hs Sw 08 GOTO BEGINNING OF THE TEST(ON ERROR). 
5920 5. Sw 10 GOTO NEXT TEST(ON ERROR). 
5922 SCOPE SWITCHES 
6924 ? Sw 09 (IF ENABLED BY ‘SCOP1"). IF AN '** IS PRINTED IN FRONT OF 
5925 THE TEST NO. ON AN ERROR REPORT (EX. *TEST NO. 10 ) SWO9 IS 
5926 INCORPORATED IN THAT TEST AND THEREFORE SWO9 IS *USUALLY* THE 
$927 BEST SWITCH FOR THE SCOPE LOOP (SW14=0, SW10=0, SwO9=1, SWO8=0) 
5928 IF THE PROGRAM USER IS. TECHNICALLY TRAINED TO ELECTRONICALLY 
5929 ISOLATE SIGNAL PROBLEMS ON THE DZ11 MODULE. 
$930 | IF SWO9 IS NOT ENABELED: AND THERE IS A *HARD* ERROR 
5931 : (CONSTANT): SWO8 IS BEST. 
$922 2. FOR INTERMITTENT ERRORS EITHER START THE PROGRAM WITH SWO1 AND 
5933 SwWO2 SET WHICH WILL ALLOW THE USER TO LOCK ON A SELECTED TEST, 
5934 OR ELSE SET SW14 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL. 
$935 SwW14 WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN 
5936 ERROR OCCURS. 
5937 3. SW 14 LOOP ON CURRENT TEST. 
5939 4.2 STARTING ADDRESS 
$941 SA 200 - ADDRESS 200 IS FOR NORMAL EXECUTION OF THE DIAGNOSTIC. ‘THIS 
5942 WILL DO THE MAJOR TESTING NECESSARY FOR VERIFICATION OF 
9963 HARDWARE . 
$945 SA 210 = CABLE/ECHO - TERMINAL TESTS. STARTING AT ADDRESS 210 WILL GIVE 
5946 THE USER THE OPTION TO VERIFY THE EIA CABLES AT THE DIST PNL OR 
5947 VERIFY A TRUE LINK TO ANY DEC SUPPORTED TERMINAL SUPPORTED BY 
5948 THE D211. 
5950 NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT IS UNDER 
5951 ACT11 OR XXDP CONTROL AND WILL ACT ACCORDINGLY. AFTER *ALL* 
$952 AVAILABLE DZ711'"S ARE TESTED THE PROGRAM WILL RETURN TO ‘XXDP* OR 
5953 "ACT=-171' 
§954 
3955 5. OPERATING PROCEDURE 
$957 WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION FOUR 
5958 WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING THE DIAGNOSTIC. 
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NORMAL START OF DIAGNOSTIC 


ON THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200; IF AUTO 
SIZING IS NOT USED OR WHENEVER SWOO=1; THE FOLLOWING QUESTIONS 
ARE ASKED AND MUST BE ANSWERED. 


"IST CSR ADDRESS (160000:163700): °' 


YOU MUST TYPE IN THE FIRST DZ11 CSR IN_THE SYSTEM YOU WISH 
TESTING TO BEGIN AT. RANGE: 160000:165700 


"1ST VECTOR ADDRESS (300:770): °' 


YOU MUST TYPE IN THE VECTOR OF THE FIRST DZ11 IN THE SYSTEM 
UNDER TEST. RANGE 300:770 


"BR LEVEL (4:6): °' 


TYPE IN THE PRIORITY LEVEL OF THE 0DZ11 THAT THE ABOVE 
INFORMATION HAS BEEN GIVEN ABOUT. RANGE 4 OR 5 OR 6. 


“TYPE ‘'A'' FOR EIA MODULE OR ‘B"’ FOR 20MA (A:B): °°" 


TYPE ‘‘A’' IF RUNNING A DZ11-A,B,E (EIA). 
TYPE *B'' IF RUNNING A DZ11-C,D,F (20MA). 
TYPING A <CR> DEFAULTS TO EIA MODULES. 


"MAINTENANCE MODE 

CEXTERNAL <H325>-EIA ONLY (E)J 
[INTERNAL <DZCSRO3=1> (J])J 
[STAGGERED <H3271>-EIA ONLY (S)J 
[STAGGERED <H3190>-20MA ONLY (S)J 


TYPE ‘'E** OR adie OR ‘'S*' DEPENDING ON WHICH MODE YOU WISH TO RUN 


IN. IF RUNNING ‘“'EXTERNAL*’ ALL SELECTED LINES MUST BE 
TERMINATED BY AN H325 TEST CONNECTOR. 
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4001 
6002 
or "# OF DZ11°S <IN OCTAL> (1:20): “ 
6 
6005 TYPE TOTAL NUMBER OF DZ11°S TO BE TESTED IN THE SYSTEM. RANGE 
6006 IS 1 THRU 20 IN OCTAL. 
6007 
6008 kkakkkzeee TF SWOS=1 THEN «eeaannne 
rise IF SWO3=1 THE FOLLOWING WILL BE PRINTED. 
74 “LINES ACTIVE BY BIT <IN OCTAL> (001:377):°' 
6013 EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES MAY BE 
6014 SELECTED (HOWEVER IN STAGGERED MODE TWO ADJACENT LINES MUST BE 
re A SELECTED (0-1, 2-3, 4-5, 6-7)).. 
cota “DEFAULT BAUD RATE <IN OCTAL> (00:16): “' 
6019 THIS GIVES THE USER A CHANCE TO CHANGE THE DEFAULT BAUD RATE 
6020 USED IN APP. 90 PERCENT OF THE TEST. BAUD RATE CHOICES ARE : 
6021 "00°C 50 BAUD),’' 01° 75 went “02° 110 BAUD), "03" 134 BAUD), 
6022 mere 150 BAUD), 05" ( 300 BAUD) “ae 600 BAUD) ,*'07°*(1200 BAUD) . 
6023 ‘'10°°(1800 BAUD) ,“‘11°'(2000 BAUD) .’ 12° ‘(2400 BAUD). 13''(3600 BAUD), 
6024 "'14''(4800 BAUD), "'15°(7200 BAUD) ,°°16°'(9600 BAUD) ,“°17°°(19.2 KBAUD ) 
6025 LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHEN THE 
6026 TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 
6027 xx* NOTE xx 
6028 SPEED SELECT CODE 17 CAN BE USED TO SELECT 19.2kK BAUD, BUT THIS 
6029 SPEED IS NOT SPECIFIED BY DEC, AND SHOULD NOT NORMALLY BE USED. 
6030 RRR KEE ERE REE 
6031 
6032 IT IS IMPORTANT TO NOTE THAT AiL DZ11°S IN THE SYSTEM MUST BE 
60353 CONTIGIOUS FOR BOTH ADDRESS AND VECTORS. ALSO ALL THE EXTRA 
6034 PARAMETERS OTHER THAN CSR AND VECTORS ARE GIVEN TO THE EXISTING 
6035 DZ11°S IN THE SYSTEM. IF NOT ALL DZ11°S ARE SAME PRIORITY OR IF 
6036 THE MODE OF OPERATION IS DIFFERENT FOR EACH DZ11; THIS MUST BE 
6037 "PATCHED’’ INTO THE CORRECT STATUS MAP ENTRY WHICH IS PRINTED AT 
6038 START TIME. AN ALTERNATIVE IS TO PUT SWOO=1 AT START TIME: 
6039 ANSWER QUESTIONS ABOUT DZ11 UNDER TEST AND INDICATE ONLY 1 DZ11 
6069 IN THE SYSTEM. IF THE STATUS MAP IS TO BE ‘PATCHED'' IT MUST BE 
6041 DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO SIZE. 
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6045 
6044 
hee 5.2 HOW TO RUN THE ‘‘CABLE/ECHO'' TESTS. 
6047 NORMAL STARTING FOR THE FIRST TIME WOULD BE: LOAD ADDRESS 210; START 
6048 WITH THE SWR EQUAL TO 003. 
6049 NOTE: oes ASKS FOR ‘‘VECTOR’’ AND ‘‘CSR’ 
6050 SwO1=1 ASKS FOR ‘WHICH TEST ECHO on CABLE'', ‘BAUD RATE'’, ‘LINE’ 
ri! MER TEST. PROGRAM WILL PRINT OUT: 
6053 “VECTOR ADDRESS-"' 
6054 
Ore YOU TYPE VECTOR WITH A <CR>. 
itt “*CONTROL REGISTER ADDRESS-"' 
6059 YOU TYPE IN DZCSR UNDER TEST. 
net "WHICH TEST ? ECHO OR CABLE (E OR (C)* 
6063 LETS DO THE CABLE TEST FIRST. **THIS TEST IS ONLY TO BE DONE ON 
6064 THE EJA VERSION OF THE DZ11 NOT THE 20MA VERSION’’. TYPE °'C'* 
6065 <CR> 
6065 
rae "BAUD RATE- ‘' 
6069 TYPE EITHER 50, 110, 135, 150, 300, 600, 1200 1800, 2000, 2400, 
oN 3600, 4800, 7200, 9600 FOLLOWED BY <CR> 
6072 “Line: “™ 
6073 
6074 YOU TYPE THE LINE WHICH HAS THE H325 TEST CONNECTOR. (TYPE 
rk EITHER O, 1, 2. 3. 4. 5. 6, 7) PROGRAM WILL THEN PRINT: 
me "CABLE TEST'’ 
6079 AND IF EVERYTHING IS WORKING; THE FOLLOWING WILL BE PRINTED: 
6081 "PASS DONE.’ | 
6082 “PASS DONE.*’ 
6083 BTC « 
6054 TO CHANGE LINES; HIT ANY PRINTING KEY ON YOUR CONSOLE TERMINAL 
6085 WHILE THE PROGRAM IS RUNNING AND THE FOLLOWING WILL BE PRINTED: 
6087 “iRer ™ 
6088 
6089 NOW CHANGE THE H325 TEST CONNECTOR TO ANOTHER LINE AND TYPE THE 
ya NEW LINE. PROGRAM WILL THEN PRINT: 
6092 "CABLE TEST'’ 
6093 “PASS DONE.*' 
6094 "PASS DONE.*' 
6095 CONTINUE THIS OPERATION UNTIL ALL LINES ARE TESTED. 


ame wee oe we ee 


CZ7DZ7A=GO0 
CZDZAG.P11 


ee eee ee 


MACY11 30A(1052) 
24-JUN-81 09:45 


ee eee Ce =-- — 


24=JUN-81 


5.3 


09:46 PAGE 68 


ECHO TEST 


IF PROGRAM HAS ALREADY BEEN STARTED AT 210 AND THE VECTOR 
HAVE BEEN TYPED IN; JUST LOAD ADDRESS 210 AND START WITH SWR EQUAL TO 
002. PROGRAM WILL PRINT: 


"WHICH TEST ? ECHO OR CABLE (E OR (C)"' 
NOW TYPE AN ‘'E** TO DO THE ECHO TEST. 
“BAUD RATE-"" 
TYPE BAUD RATE AT WHICH THE TERMINAL IS SET THAT IS CONNECTED TO 
. BAUD RATE CHOICES ARE: 50, 75, 110, 135, 150 
300, 600 , 1200, 1800, 2000, 2400, 3600, 4800, 7200, 9600. THE 
PROGRAM WILL THEN PRINT: 
LIME: 


TYPE THE LINE THE TERMINAL IS CONNECTED TO AT THE DIST PNL 
THE PROGRAM WILL PRINT: 


“TERMINAL ECHO TEST"’ 
xe* AT THIS POINT THE MESSAGE: 
"THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789"" 


SHOULD BE PRINTED ON THE TERMINAL CONNECTED TO THE D211. IF 
THIS MESSAGE IS DESIRED TO BE CONTINIOUSLY OUTPUT; SET THE SWR 
TO 377 (SWR=377) WHILE IT IS BEING OUTPUT OR WHEN THE LINE NO. 
IS REQUESTED ABOVE. WHEN THIS MESSAGE IS DONE AND THE SWR IS NOT 
EQUAL TO 377; THE CONSOLE WILL PRINT: 


“TYPE A CHAR. ON DZ11 TERMINAL"’ 


ANY PRINTABLE CHAR HIT ON DZ11 TERMINAL SHOULD BE ECHOED BACK ON 
THE TERMINAL. **IF YOU HIT CNTRL C <*C> ON THE DZ11 TERMINAL 
THE PROGRAM WILL PRINT: 


“PASS DONE.** 


ON THE CONSOLE TERMINAL AND THE 
PRINTED ON DZ11_ TERMINAL AGAIN AND THE ECHO TEST WILL BE 
RUNNING. TO CHANGE LINES: TYPE ANY PRINTABLE CHARACTER ON THE 
CONSOLE TERMINAL (NOT THE DZ11 TERMINAL). THE PROGRAM WILL AGAIN 
TYPE “LINE: ** AND WAIT FOR A RESPONSE. 


AND ADDRESS 


PROGRAM WILL PRINT: 


THEN 


“QUICK BROWN FOX’’ WILL BE 


SEQ 0011 
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PROGRAM AND/OR OPERATOR ACTION 


THE VARIETY OF PROGRAM CONTROL SWITCHES PROVIDED IN THIS DIAGNOSTIC 
PACKAGE IS DESIGNED TO PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 
SHOOTING TECHNIQUES. BEFORE TIIE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE 
SHOULD BECOME FAMI<IAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3) 


WHEN THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE TYPED 
OUT AND POSSIBLY AN ERROR MESSAGE (DEPENDING ON THE PARTICULAR ERROR). 
IF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT 
THEN LOOK IN THE PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THF 
PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 


ERRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A_TEST NUMBER AND PC_ TYPED 
OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 12=0). IN MOST 
CASES ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE THE ERROR MESSAGE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 


ERROR RECOVERY 


IF FOR SOME REASON THE DZ11 SHOULD ‘HANG THE BUS" (GAIN CONTROL OF BUS 
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP 
IS NECESSARY FOR OPERATOR TO REGAIN CONTROL OF CPU. IF THIS SHOULD 
HAPPEN; LOOK IN LOCATION ‘TSTNO* (ADDRESS 1216)FOR THE NUMBER OF THE 
TEST THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS 
WAY THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DZ11 WAS DOING AT THE 
TIME OF THE ERROR. 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4.1.2 

STATUS TABLE SHOULD BE VERIFIED REGARDLESS OF HOW PROGRAM WAS STARTED. 


ALSO JT IS IMPORTANT TO USE THIS LISTING ALONG WITH THE INFORMATION 
PRINTED ON THE TTY TO COMPLETLY ISOLATE PROBLEMS. 


SEQ 0012 
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6192 : 
619% 
6194 7.2 OPERATING RESTRICTIONS 
6 
619% PARAMETER MUST BE INPUT FROM USER OR APT IF ‘‘AUTO SIZING'’ IS NOT USED. 
6) | 
6198 
6199 8. MISCELLANEOUS 
6200 | 
6201 @.1 EXECUTION TIME 
6203 ALL D211 DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS’ MESSAGE (PROVIDING 
6204 NO ERRORS AND SW12=0) WITHIN 2 MIN. THIS IS ASSUMING SW11=1 (INHIBIT 
6205 ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. |THE ACTUAL 
6206 EXECUTION TIME DEPENDS GREATLY ON THE PDP11 CPU CONFIGURATION. AN 11/40 
6207 4JITH CORE MEMORY WILL TAKE AROUND 100 SECONDS TO EXECUTE A PASS WITH NO 
6208 ITERATIONS AND ABOUT 400 SECONDS TO EXECUTE A FULLY ITERATED PASS. ANY 
6209 OTHER PDP11 CPU TYPE WILL EXECUTE A PASS IN TIME PROPORTIONAL TO THE 
6210 EXECUTION SPEED OF THE CPU °S MEMORY IN RELATION TO THAT OF AN 11/40. 
6212 8.2 PASS COMPLETE 
6 . 
6214 NOTE: *EVERY® TIME THE PROGRAM IS STARTED: THE TESTS WILL RUN AS IF 
6215 Sw11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO ‘VERIFY NO *HARD® 
6216 ERRORS’ AS SOON AS POSSIBLE. THEREFORE THE FIRST PASS -EACH TIME 
6217 PROGRAM IS STARTED- WILL BE A ‘QUICK PASS" UNTIL ALL DZ211°S IN SYSTEM 
6218 ARE TESTED. WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
6219 AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 
6201 END PASS CZDZ2A-G CSR: 160010 VEC: 300 PASSES: 000001 ERRORS: 
622" NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 


63% THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 
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6233 NEXT 
6234 $STSTNM 
tH RUN 


6245 DZACTV (1404) 


6251 $BASE 


(13 
(11 
(14 
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60) 
22) 
06) 


STATUS MAP 
(1500)=(2000) 


(1310) 


KEY LOCATIONS 
$LPADR (1126) 


CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN WHEN 
beteaten. COUNT IS REACHED OR IF LOOP ON TEST IS 
CONTAINS THE ADDRESS OF THE NEXT TEST TO BE PEFORMED. 
CONTAINS THE NUMBER OF THE TEST NOW BEING PEFORMED. 

THE BIT IN ‘RUN’ ALWAYS POINTS ONE PAST THE D211 
CURRENTLY BEING TESTED. EXAMPLE : (RUN) 
1304/0000000001000000 MEANS THAT DZ11 NO.05 IS THE DZ11 
NOW RUNNING. 


THESE LOCATIONS CONTAIN THE INFORMATION NEEDED [0 TEST 
UP TO 16 (DECIMAL) DZ11S SEQUENTIALY. THEY CONTAIN THE 
eer Beit AND STATUS CONCERNING THE CONFIGURATION OF 
FACH BIT SET “* aa LOCATION INDICATES THAT THE 
ASSOCIATED D211 BE TESTED IN TURN. : 
(DZACTV) 1300/0000006000011111 MEANS THAT DZ11_ NO. 
0,01,02,035,04 TESTED. _EXAMPLE: (DZACTV) 
1360/6006006000010001 MEANS THAT DZ11 NO. 00,04 WILL BE 
Ved teat THE RECEIVER CSR OF THE CURRENT DZ11 UNDER 
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SEQ 0014 
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8.4A MORE ON THAT ‘STATUS TABLE’ (1500-2000) 


"MAP OF DZ11 STATUS" 
1500 160100 
1502 000300 
1504 000005 
1506 000377 
1510 017070 
1512 000000 


TH ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP [0 16 DZ11°S IN 

THE SYSTEM(THESE WILL FOLLOW UNDER THIS TABLE). EXPLANATION 

1500 160100 ad EL Le SYSTEM CONTROL REGISTER FOR THE isT DZ17 IN 

1502 000300 THIS IS VECTOR ‘A* FOR THE FIRST DZ11 IN THE SYSTEM. 

1504 000005 THIS REPRESENTS THE BUS INTERRUPT PRIORITY LEVEL OF THE 
0Z11. BIT15 OF THIS LOCATION INDICATES EITHER EIA OR 
2OMA. IF BIT15=0 MODULE SHOULD BE AN M7819, IF BIT15=1 
MODULE SHOULD BE AN M7814. 

1506 000377 ing RS Me BINARY REPRESENTATION OF WHAT LINES ARE TO 

1510 0717070 THIS IS THE PARAMETER LOCATION USED IN MOST OF_ THE 
TESTS. IT INDICATES PARAMETERS OF: RX ON, SPEED SELECT 
16 (9600 BAUD) EIGHT BITS PER CHAR, AND TWO STOP BITS. 
THE USER MAY ALTER THE STOP BITS AND THE SPEED, BUT THE 
REMAINING PARAMETERS SHOULD BE LEFT ALONE. 
THIS LOCATION IS USED TO LOAD THE DZ11 LINE PARAMETER 
REGISTER FOR EACH LINE. _ THE MEANING OF THE BITS SET IN 
THIS LOCATION IS THE SAME AS THE FUNCTION OF THE RELATED 
BITS IN THE DEVICE LINE PARAMETER REGISTER. 

1512 000000 THIS LOCATION WILL CONTAIN EITHER ALL ZEROS _ INDICATING 
THAT INTERNAL LOOP WAS SELECTED AS MODE OF OPERATION OR 
IT WILL CONTAIN 10000 INDICATING THAT ‘‘STAGGERED MODE"’ 
WAS SELECTED OR IT WILL CONTAIN 000200 INDICATING THAT 
“"EXTERNAL'* WAS THE MODE SELECTED. 


THE ABOVE IS REPEATED FOR EACH DZ11 IN THE SYSTEM. THE TABLE IS 
FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER INPUT PROGRAM 
AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY USER; THE 
LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO SUIT THE 
SPECIFIC CONFIGURATION. 
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8.5 xs** METHOD OF AUTO SIZING *** 
8.5.1 FINDING THE CONTROL STATUS REGISTER. 


THE PROGRAM WILL START AT ADDRESS 160000 AND START ‘REFERENCING’ THE 
ADDRESS IN THE POINTER. IF A NON-EX MEMORY TRAP OCCURES, THE POINTER 
(HOLDING 160000) IS UPDATED BY 10 AND THE ABOVE IS REPEATED UNTIL 
ADDRESS 163700 IS REACHED. IF A ‘SLAVE SYNC RESPONSE" WAS ISSUED BY THE 
DZ11 (OR ANY OTHER yy (NO NXM TRAP), ‘MASTER SCAN ENABLE’ IS 
ATTEMPTED TO BE SET AND THE ''TCR’’ BIT FOR LINE 7 IS SET. ‘‘TRDY'’ IS THEN 
TESTED TO BE SET AND BOTH ''TCRO7’’ AND ‘MASTER SCAN ENABLE'’ ARE TESTED TO 
BE STILL SET. IF ALL OF THIS WORKED; THEN A ‘DEVICE CLEAR’’ IS_ ISSUED 
TESTING THAT THE BIT CAN BE READ BACK AND THAT AFTER SOME TIME IT SELF 
CLEARS. IF ALL OF THE ABOVE WORKED; THIS DEVICE IS ASSUMED TO BE A 
DZ11. IF ANY OF THE ABOVE FAILED; UPDATING OF THE POINTER IS DONE AND 
THE SEQUENCE IS REPEATED. 

NOTE: IF THE PROGRAM DOES NOT FIND YOUR DZ11; SOMETHING IS WRONG AND 
AUTO SIZING SHOULD NOT BE DONE. 

AFTER IDENTIFYING A D211 y* yg THEN ATTEMPTS TO SET ALL DTR_ BITS 


IN DEVICE REGISTER 4. IF ANY DTR BITS DID SET THE MODULE IS ASSUMED TO 
“aaies. MODULE (M7819) OTHERWISE THE STATUS MAP ENTRY IS SET FOR 20MA 


5.5.2 FINDING THE VECTOR 


THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE INSTRUCTION IOT AND 
".+2" (NEXT ADDRESS).  BIT14 AND BITS (TX INTERUPT ENABLE AND MSTSCAN 
ENABLE) ARE SET INTO THE DZCSR. ‘‘TCRO7*’ IS THEN SET. A DELAY IS MADE 
AND IF NO INTERUPT OCCURES (BECAUSE OF A BAD DZ11) THE PROGRAM ASSUMES 
VECTOR ADDRESS 300 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. 
ONCE THE PROBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 
CORRECT VECTOR. IF AN INTERUPT OCCURRED; THE ADDRESS TO WHICH THE D211 
INTERUPTED TO IS PICKED UP AND REPORTED AS THE VECTOR. NOTE: IF THE 
VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU; THERE IS A PROBLEM AND 
AUTO SIZING SHOULD NOT BE DONE. 


8.5.5 | PARAMETER ASSUMPTIONS. 


SINCE TOO MUCH HARDWARE WOULD NEED TO BE TURNED ON TO SIZE THE REST OF 
THE PARAMETERS; THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS. THE 
RESULT IF NOT TO YOUR SPECIFIC CONFIGURATION MAY RE ALTERED BY _ HAND 
(TOGGLE IN) IF DESIRED). IN THIS WAY 95 PERCENT OF THE PARAMETER SETUP 
WAS DONE BY THE PROGRAM, AND 5 PERCENT BY YOU. 


THEREFORE : 

1) BUS PRIORITY IS SET TO LEVELS. 

2) ALL EIGHT LINES ARE ASSUMED TO BE TESTED. 
3) DEFAULT BAUD RATE IS SET TO 16 (9600 BAUD). 
4) MODE OF OPERATION IS ‘‘INTERNAL MODE"’. 


FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION 8.4A FOR GREATER DETAIL. 





———— i oes es eee eee eer—_ 


FOES cir ee mm rr we a - ee we ee 


| CZDZA=GO MACY11 30A(1052) 24=JUN=81 
/C2D2AG.P11 — 26=JUN=81 09:45 





09:46 PAGE 74 


RUNNING THE DZ11 DIAGNOSTIC UNDER APT 


THE APT INTERFACE 

CZDZA HAS BEEN REDESIGNED TO BE COMPATIBLE WITH THE APT- 
AUTOMATED PRODUCT TEST SYSTEM. IT CAN BE RUN AS A STANDALONE 
DIAGNOSTIC OR IN EITHER OF THE APT MODES. CERTAIN VARIABLES 
IN THE ORIGINAL APT MODULE WERE REASSIGNED TO THE AREAS SET 


ASIDE FOR APT INTERFACING. THESE NEW VARIABLES GENERALLY 
BEGIN WITH A DOLLAR SIGN ($), E.G., $DEVM, $BASE. 


SETTING UP THE DIAGNOSTIC USING APT 


THE DIAGNOSTIC USES SEVERAL VARIABLES IN THE REGION SUBTITLED 
"APT MAILBOX-ETABLE’. THESE VARIABLES ARE: 


S$SWREG =~ USED IF A SOFTWARE SWITCH REGISTER IS DESIRED WHILE 
UNDER APT 


USED TO SPECIFY THE INTERRUPT LEVEL AND THE FIRST 
VECTOR ADDRESS 


$BASE - USED TO INDICATE BOTTOM ADDRESS OF DZ11 UNDER TEST 
SDEVM =- A BIT MAP REPRESENTING WHICH D0Z11°S WILL BE TESTED 
$CDW1 - USED TO INDICATE WHICH LINES TP? RUN ON ALL DZ11°S 


$DDWO - EACH OF THE $DDW WORDS DESCRIBES THE PARAMETERS 
(LPR) FOR A PARTICULAR DZ11, GOING UP TO 16 DZ11°S 


$VECT1 


RUNNING UNDER APT 
THE USER SHOULD BE FAMILIAR WITH THE APT SYSTEM. THE APT 
TIMING PARAMETERS FOR THE D211 ee te WERE BASED ON AN 
11/40 PROCESSOR. IT MAY BE NECESSARY ADD A FEW MORE 
SECONDS IF THE DIAGNOSTIC IS OUT ON AN 11705 PROCESSOR. 
ALL OF THE VARIABLES MENTIONED IN SECTION 4" Wy te SHOULD BE SET 
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER APT 

NOTE 


BE SURE $BASE POINTS TO THE FIRST DZ11 BEFORE RUNNING 


BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP THE STATUS 
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TABLE. THE USER 1s THEN FREE TO MONITOR UNDER APT AS NORMAL. 


SEQ 0018 
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| 6612 
= 66415 
| “is 10.0 CHANGE HISTORY 
64 
| 416 NOTE: HISTORY STARTS WITH REV. FO 
6418 REV CHANGE DESCRIPTION 
| 6419 od 5 ie Ba cae pena Ae 
| 6420 
6421 FO: ALTER TRANSMITTER INTERRUPT SERVICE ROUTINE 
6422 TO ALLOW MORE TIME FOR THE TCR BIT TO CLEAR BEFORE 
a2 LOWERING THE BUS PRIORITY TO ENABLE DZ11 INTERRUPTS. 
24 
6425 GO: MAY 1981 = INCORPORATE XON/XOFF FEATURES (BY ASSEMBLING WITH 
64.26 LATEST SYSMAC = C5) AND CHANGE ‘'.="' CODE MODIFIERS AT END 
6427 OF PROGRAM FROM ABSOLUTE ADDRESS MODE TO RELATIVE. Ai SO, THE 
6428 DEFAULT BAUD RATE WAS CHANGED TO 9600 BAUD, SINCE 19.2K BAUD IS 
429 NOT SUPPORTED, AND TEST 34 WAS CHANGED TO REMOVE 19.2k TESTING. 
6431 
6432 % 
8607 
8608 
8516 TITLE C2DZA-GO 
(2) :*CGPYRIGHT (°) 1976,1981 
(2) :*DIGITAL EQUIPMENT CORP. 
(2) :*MAYNARD, MASS. 01754 
(2) S*THIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
2) ;*PACKAGE (MAINDEC~11=DZQAC~C5), 1981. 
(2) 000001 $TN=1 
(2) ; STARTING PROCEDURE 
(2) LOAD PROGRAM 
(2) ;LOAD ADDRESS 000200 
(2) :PRESS START 
(2) :PROGRAM WILL TYPE ‘'CZDZA~G0/<200>/CZDZAGO D211 LN ASYNC MUX TSTS *° 
(2) “PROGRAM WILL TYPE "'RUNNING'’ TO INDICATE THAT TESTING HAS STARTED 
(2) TAT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
s; ;AND THEN RESUME TESTING 
5) .SBITL BASIC DEFINITIONS 
(2) ;*INITIAL ADDRESS OF THE STACK POINTER *** 1120 *#* 
(2) 001120 STACK= 1120 
(2) EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
5) ‘EQUIV IOT;SCOPE SIBASIC DEFINITION OF SCOPE CALL 
(2) ; *MISCELLANEOUS DEFINITIONS 
(2) 000011 Ht= 17 :;CODE FOR HORIZONTAL TAB 
(2) 000012 f= = '12 :iCODE FOR LINE FEED 
(2) 000015 (Re = -15 Si CODE FOR CARRIAGE RETURN 
(2) 000200 CRLF= 200 SI CODE FOR CARRIAGE RETURN-LINE FEED 
—@) 177776 PS= —s-177776 SIPROCESSOR STATUS WORD 





-EQUIV PS,PSW 


SEQ 0019 
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(2) 177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 
(2) 177772 PIRQ= 177772 ::;PROGRAM INTERRUPT REQUEST REGISTER 
(2) 177570 DSWR= 177570 ; ;HARDWARE SWITCH REGISTER 
‘3 177570 DDISP= 177570 : ;sHARDWARE DISPLAY REGISTER 
(2) > *GENERAL PURPOSE REGISTER DEFINITIONS 
(2) 000000 RO= %0 ;;: GENERAL REGISTER 
(2) 000001 R1= 41 ;;GENERAL REGISTER 
(2) 000002 R2= Xe ;;GENERAL REGISTER 
(2) 000003 R3= %3 >; GENERAL REGISTER 
(2) 000004 R4= %4 3; GENERAL REGISTER 
(2) 000005 R5= 25 ;; GENERAL REGISTER 
(2) 000006 R6= %6 3; GENERAL REGISTER 
(2) 000007 R7= %7 3; GENERAL REGISTER 
(2) 000006 SP= 46 :;STACK POINTER 
i$) 000007 PC= %7 3 PROGRAM COUNTER 
(2) :*PRIORITY LEVEL DEFINITIONS 
(2) 000000 PRO= 0 ::PRIORITY LEVEL O 
(2) 000040 PR1= 40 ::PRIORITY LEVEL 1 
(2) 000100 PR2= 100 ::;PRIORITY LEVEL 2 
(2) 000140 PR3= 140 ::PRIORITY LEVEL 3 
(2) 000200 PR4= 200 ::PRIORITY LEVEL 4 
(2) 000240 PR5= 240 >;PRIORITY LEVEL 5 
(2) 000300 PR6= 300 > :PRIORITY LEVEL 6 
zt 000340 FR7= 340 ::PRIORITY LEVEL 7 
(2) :*' SWITCH REGISTER’’ SWITCH DEFINITIONS 
(2) 100000 Sw15= 100000 
(2) 040000 SW14= 40000 
(2) 020000 Sw13= 20000 
(2) 010000 SwW12= 10000 
(2) 000 SW11= 4000 
(2) 002000 SwW10= 2000 
(2) 001000 SwO9= 1000 
(2) 0400 SwWO8= 400 
(2) 000200 SWO7= 200 
(2) 000100 SWO06= 100 
(2) 000040 SWO5S= 40 
(2) 00002 SwO4= 20 
(2) 000010 Sw03= 10 
(2) 000004 SWO2= 4 
(2) 000002 SwOl= 2 
(2) 000001 SwO0= 1 
(2) EQUIV SWO9,SW9 
(2) EQUIV SWO08,SW8 
(2) EQUIV SWO7,SW7 
(2) ~EQUIV 106,S 
(2) EQUIV SWw05,SW5 
(2) EQUIV SW04,SW4 
(2) EQUIV SW03,SW3 
(2) EQUIV SwW02,SW2 
(2) EQUIV SWO1,SwW1 
‘¢? EQUIV 0, 
(2) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
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(2) 10000C BIT15= 100000 
(2) 340000 BIT14= 40000 
(2) 020000 BIT13= 20000 
(2) 1000 BIT12= 10000 
(2) 004000 BIT11= 4000 
(2) 002000 BIT10= 2000 
(2) 001000 BITO9= 1000 
(2) 000400 BITO8= 400 
(2) 000200 BITO7= 200 
(2) 000100 BITO6= 100 
(2) 000040 BITO5= 40 
(2) 000020 BITO4= 20 
(2) 000010 BITO3= 10 
(2) 000004 BITO2= 4 
(2) 000002 BITO1= 2 
(2) 000001 BITOO= 1 
(2) -EQUIV BITO9,BITI 
(2) EQUIV BIT08,BIT8 
(2) -EQUIV BITO7,BIT7 
(2) -EQUIV BIT06,BIT6 
(2) EQUIV BITOS,BITS 
(2) -EQUIV BITO4,BIT4S 
(2) EQUIV BITO3,BITS3 
(2) EQUIV BITO2,BIT2 
(2) EQUIV BITO1,BIT1 
‘s -EQUIV BITOO,BITO 
(2) :*BASIC ‘**CPU'’ TRAP VECTOR hse yy 
(2) 000004 ERRVEC= 4 TIME OUT AND OTHER ERRORS 
(2) 000010 RESVEC= 10 : 7RESERVED AND ILLEGAL INSTRUCTIONS 
(2) 000014 TBITVEC=14 'T’’ BIT 
(2) 000014 TRIVEC= 14 : = TRACE TRAP 
(2) 000014 BPTVEC= 14 : ;BREAKPOINT TRAP (BPT) 
(2) 000020 IOTVEC= 20 :: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
(2) 0000274 PWRVEC= 24 >:POWER FAIL 
(2) 000030 EMTVEC= 30 >: EMULATOR TRAP (EMT) **ERROR** 
(2) 000034 TRAPVEC=34 ::'"TRAP’' TRAP 
(2) 000060 TKVEC= 60 :: TTY KEYBOARD VECTOR 
(2) 000064 TPVEC= 64 :: TTY PRINTER VECTOR 
oH 000240 PIRQVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 
(1) 
sie > INSTRUCTION DEFINITIONS 
(1) | 
(1) 005746 PUSH1SP=5746 :DECREMENT PROCESSOR STACK 1 WORD 
(1) 005726 POP1SP=5726 : INCREMENT PROCESSOR STACK 1 WORD 
(1) 010046 PUSHRO=10046 sSAVE RO ON STACK 
(1) 012600 POPRO=12600 sRESTORE RO FROM STACK 
(1) 024646 PUSH2SP=24646 ;DECREMENT STACK TWICE 
AY. 022626 PGP2SP=22626 : INCREMENT STACK TWICE 
(1) :DZ11 CONTROL AND STATUS REGISTER DEFINITIONS 
Af ; (DZCSR) BIT DEFINITIONS 
(1) 
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(1) 00001C MAINT = BIT3 :MAINTENANCE MODE ENABLE 
(1) 000020 DCLR=BIT4 :DEVICE CLEAR 

(1) 000040 MSENAB=B1T5 -MASTER SCAN ENABLE 

(1) 0010 RIE=BIT6 “RECEIVER INTERRUPT ENABLE 
(1) 000200 RDONE=B!T7 “RECEIVER DONE 

1) 010000 SILOEN= BIT12. ;SILO ALARM ENABLE 

(1) 020000 SILOAL = BIT13 :SILO ALARM 

(1) 0000 TIE=BIT14 - TRANSMITTER INTERRUPT ENABLE 
1) 100000 TRDY=BIT15 > TRANSMITTER READY 

MW) :DZCSR WORD DEFINITIONS 

(1) 000000 TLO=0 : TRANSMIT LINE 0 

(1) 000400 TL1=BIT8 = TRANSMIT LINE 1 

(1) 001000 TL2=BIT9 * TRANSMIT LINE 2 

(1) 001400 TL3=BIT9!BIT8  ; TRANSMIT LINE 3 

(1) 002000 TL4=BIT10 > TRANSMIT LINE 4 

(1) 002400 TL5=BIT10: B18 = TRANSMIT LINE 5 

(1) 003000 TL6=BIT10'BIT9 =TRANSMIT LINE 6 

oP 003400 TL7=BIT10'BIT9!BIT&8 ; TRANSMIT LINE 7 

(1) 

) :DZRBUF BIT DEFINITIONS 

(1) 

(1) 010000 PARER=BIT12 :PARITY ERROR 

(1) 020000 FRMERR=B]113 “FRAME ERROR 

(1) 040000 OVRRUN=B1T14 -OVERRUN ERROR 

or 100000 DVALID=B1T15 =DATA VALID 

1) :DZRBUF WORD DEFINITIONS 

(1) 

(1) 000000 RLO=0 :RECEIVER LINE 0 

(1) 000400 RL1=BIT8 “RECEIVER LINE 1 

(1) 01 RL2=BIT9 “RECEIVER LINE 2 

(1) 001400 RL3=BIT9'BIT8  ;RECEIVER LINE 3 

(1) 002000 RL4=B1T10 “RECEIVER LINE 4 

(1) 002400 RL5=BIT10'BIT8 :RECEIVER LINE 5 

(1) 003000 RL6=BIT10'BIT9 RECEIVER LINE 6 

(1) 003400 RL 7=B1T10'!BIT9!BIT8 RECEIVER LINE 7 

1) :DZLPR WORD DEFINITIONS 

(1) 

(1) 000000 PO=0 INE PARAMETER 0 

(1) 000001 LP1=BITO *LINE PARAMETER 1 

(1) 000002 LP2=BIT1 *LINE PARAMETER 2 

(1) 000003 LP3=BIT1'BITO  :LINE PARAMETER 3 

(1) 000004 LP4=BIT2 “LINE PARAMETER 4 

(1) 000005 LP5=BIT2!BITO LINE PARAMETER 5 

(1) 000006 LP6=BIT2'BIT1 LINE PARAMETER 6 

1) 000007 LP7=8112i8171 18170 :LINE PARAMETER 7 
(1) 0 FIVE=0 :FIVE BITS/CHAR,1 STOP BIT 
(1) 000010 S1X=BIT3 >SIX BITS/CHAR,1 STOP BIT 


Neen errr nner nner errr serra e erence LL LLL LLL LL LLL LIB —wWCLA ™ 
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(1) 00002C SEVEN=B1T4 : SEVEN BITS/CHAR, ! STOP BIT 

(1) 000030 FIGHT=BIT4'BIT3 :EIGHT BITS/CHAR,1 STOP BIT 

(1) 000040 FIVES=BITS “FIVE BITS/CHAR,2 STOP BITS 

(1) 000050 SIXS=BITS'BIT3 :SIX BITS/CHAR,2 STOP BITS 

(1) 000060 SEVENS=B1T5 'BIT4 - SEVEN BITS/CHAR, 2 STOP BITS 

at 000070 EIGHTS=BITS'!BIT4!RIT3 EIGHT BITS/CHAR, 2 STOP BITS 

(1) 000100 PARITY=BIT6 :PARITY ENABLED 

(1) 000200 ODDPAR=BIT7 “ODD PARITY ENABLED 

(1) 000000 ONE STOP=0 “ONE STOP BIT ENABLED 

(1) 000040 TWOSTOP=BIT5 -TWO STOP BITS ENABLED 

(1) 000000 EVEPAR=0 | “EVEN PARITY ENABLED 

oe 010000 RCVON=BIT12 “ENABLE RECEIVER (RECEIVER ON) 

(1) 000000 550=0 :SPEED 50 BAUD 

(7) 000400 575=B1T8 -SPEED 75 BAUD 

(1) 001000 $110=B1T9 -SPEED 110 BAUD 

(1) 001400 $134=BIT9!BITS “SPEED 134.5 BAUD 

(1) 002000 $150=B1T10 -SPEED 150 BAUD 

(1) 002400 $300=B1T10'BIT8 -SPEED 300 BAUD 

(1) 003000 $600=B1T10'BIT9 -SPEED 600 BAUD 

(1) 003400 $1200=B1T10'BIT9'BIT8 :SPEED 1200 BAUD 

(1) 004000 $1800=B1T >SPEED 1800 BAUD 

(1) 004400 §2000=81T11!BIT8 =SPEED 2000 BAUD 

(1) 005000 $2400=B1T11'BIT9 *SPEED 2400 BAUD 

(1) 005400 $3600=BIT11'BIT9'BIT8 :SPEED 3600 BAUD 

(1) 006000 $4800=B1T11'!B1T10 >SPEED 4800 BAUD 

(1) 006400 $7200=B1T11'BIT10'!BIT8 : SPEED 7200 BAUD 

(1) 007000 $9600=B1T11'BIT10'BIT9 :SPEED 9600 BAUD 

1) 007400 $19200=B1T11'!BIT10'BIT9'BIT8  ;SPEED 19200 BAUD 

4) :DZTCR BIT DEFINITIONS 

(1) 000001 TCRO=B1TO = TCRO 

(1) 000002 TCR1=BIT1 “TCRI 

(1) TCR2=B1T2 > TCR2 

(1) 000010 TCR3=BI1T3 “TCR3 

(1) 000020 TCR4=BIT4 > TCR4 

(1) 000040 TCRS=BITS “TCRS 

(1) 000100 TCR6=B1 16 > TCR6 

(1) 000200 TCR7=BIT7 > TCR7 

(1) 000400 DTRO=B1T8 “DTRO 

(1) 001000 DTR1=BIT9 *DTR1 

(1) 002000 DIR2=B1T10 “DTR2 

(1) 000 DTR3=B1T11 “DIRS 

(1) 010000 DTR4=BIT12 “DTR4 

(1) 020000 DTR5=BIT13 *DTRS 

(1) 040000 DTR6=BIT14 “DTR6 

Co) 100000 DIR7=B1T15 “DIR? 

1) :DZMSR BIT DEFINITIONS 

(1) 000001 RINGO=B1T0 :RING INDICATED ON LINE 0 

(1) 000002 RING1=BIT1 “RING INDICATED ON LINE 1 

(1) 000004 RING2=B1T2 “RING INDICATED ON LINE 2 

(1) 000010 RING3=BIT3 “RING INDICATED ON LINE 3 
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(1) 00002C RING4=BIT4 sRING INDICATED ON LINE 4 
(1) 000040 RINGS=BIT5 sRING INDICATED ON LINE 5 
(1) 000100 RING6=B1 T6 ;RING INDICATED ON LINE 6 
(1) 000200 RING7=BIT7 :RING INDICATED ON LINE 7 
(1) COO=BIT8 ; CARRIER PRESENT ON LINE 0 
(1) 001000 CO1=BIT9 ; CARRIER PRESENT ON LINE 1 
(1) 002000 CO2=BIT10 ; CARRIER PRESENT ON LINE 2 
(1) 004000 CO3=B1T11 ; CARRIER PRESENT ON LINE 3 
(1) 010000 C04=BIT12 ; CARRIER PRESENT ON LINE 4 
(1) 020000 CO5=BIT13 ; CARRIER PRESENT ON LINE 5 
(1) 040000 CO6=BIT14 ; CARRIER PRESENT ON LINE 6 
Sf 100000 CO7=BIT15 ; CARRIER PRESENT ON LINE 7 
Ht ;DZTDR BIT DEFINITIONS 
(1) 
(1) 000400 BRKO=B1T8 ;BREAK FOR LINE 0 
(1) 001600 BRK1=BIT9 ;BREAK FOR LINE 1 
(1) 002000 BRK2=B1T10 ;BREAK FOR LINE 2 
(1) 004000 BRK3=BIT11 ;BREAK FOR LINE 3 
(1) 010000 BRK4=BIT12 ;BREAK FOR LINE 4 
(1) 020000 BRK5=B1T13 ;BREAK FOR LINE 5 
(1) 040000 BRK6=BIT14 ;BREAK FOR LINE 6 
Vi BRK7=BIT15 ;BREAK FOR LINE 7 
(1) 
Ms : TABLE OF LOOP AROUND FUNCTIONS (H325) 
(1) Se a a 
(1) ; V 7 
(1) ; REC TRANS 
(1) : DATA DATA 
(1) ° 
(1) Se a a a 
(1) : I] = 
(1) : V - 
(1) ; CO RTS 
(1) ® 
(7). : 
(1) 5 eee eee ee 
(1) ° I . 
(1) RING DTR 


me a mm rm me a mm << «— 
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(1) SOIC ISI IIIS IIIS ID ICIIOIIIIIOIUIIIOIIUIUIUIUIIOIIOIIUIIU TORO tt ttt t 

(1) $8 8 8 8 se esse eee eeeeeee= 

(1) ; TRAPCATCHER FOR ILLEGAL INTERRUPTS 

(1) >THE STANDARD ‘'TRAP CATCHER‘’’ IS PLACED 

(1) ;BETWEEN ADDRESS 0 TO —e 776. 

a :1T LOOKS LIKE ‘PC+*2 HALT 

(1) * RRR ABABBRABBABABABRABABRAABAABAAABASALASAAASLASAAAARASRASAASAASRBASAASRAASRASRASASRAARAASASRAASR AR SA SS @ 3 

(1) 

(1) 000000 =0 

oat sSTANDARD INTERRUPT VECTORS 

(1) 

(1) 000010 =10 

(1) 000010 011440 SET.PS sFAKE *“MTPS'' INSTRUCTION TRAP 

4 000012 000340 PR7 sMAKE SURE PS IS PRIORITY 7 

(1) 000020 ~=20 

(1) 000020 005122 . SCOPE ;SCOPE LOOP HANDLER 

(1) OCOO022 000340 PR7 sHANDLE AT PRIORITY 7 

(1) 000024 010320 $SPWRDN ;POWER FAIL HANDLER 

(1) 000026 000340 340 s;SERVICE AT PRIORITY LEVEL 7 

(1) 000030 007230 $ERROR = ERROR HANDLER 

(1) 000032 000340 340 s;SERVICE AT PRIORITY LEVEL 7 

(1) 000034 007122 . TRPSRV : GENERAL HANDLER DISPATCH SERVICE 

(1) 000036 000340 340 sSERVICE AT PRIORITY LEVEL 7 

‘s -SBTTL ACT11 HOOKS 

(3) 5 LAA KRRAEAEEAREEREREKKAEAARAEKEERAAERERAAKRERARAE RRA 

(2) HOOKS REQUIRED BY ACT11 

(2) 000040 $SVPC=. 7SAVE PC 

(2) 000046 .=46 | 

(2) 000046 005056 SENDAD ::31)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP 

(2) 000052 =52 

(2) 000052 000000 -WORD 0 :z2)SET LOC.52 TO ZERO 

at 000040 -=$SVPC zs; RESTORE PC 

(1) 000174 .=174 

(1) 000174 000000 DISPREG:0 :SOFTWARE DISPLAY REGISTER FOR SWITCHLESS 11S 

(1) 000176 000000 SWREG: 0 >SOFTARE SWITCH REGISTER FOR SWITCHLESS 11S 

(1) 000200 .=200 

(1) 000200 000137 002150 JMP . START :GO TO START OF PROGRAM 

(1) 000210 -=210 

MH 000210 000137 024442 JMP XSTART ;GOTO CABLE TEST/ECHO TEST 

(2) 

(2) 001000 .-=1000 

s? 001000 005200 055103 055104 MTITLE: eASCIZ <200><12>/CZDZA-G0/<200>/CZDZAGO DZ11 LN ASYNC MUX TSTS /<200> 


oe ee ee ee ea - ——_ 


mm —— eel ere -_--+--o— 


N 2 





CZ7DZA-GO0 MACY11 30A(1052) 24-JUN-81 09:46 PAGE 82-6 SEQ 0026 
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tt .SBTTL COMMON TAGS 
(4) SL RRA ARERR REE ERR EERE EERE REE REE REREEEE EERE ERE REE EERE 
(3) 3*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
. ;*USED IN THE PROGRAM. 
(5) 
(3) 001120 .=1120 
(3) 001120 SCMTAG: 3;:START OF COMMON TAGS 
(3) 001120 000000 .WORD 0 
(3) 001122 000 STSTNM: BYTE 0 3: CONTAINS THE TEST NUMBER 
(3) 001123 000 SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 
(3) 001124 00000 S$ICNT: .WORD OQ 3; CONTAINS SUBTEST ITERATION COUNT 
(3) 001126 000000 $LPADR: .WORD 0 ;; CONTAINS SCOPE LOOP ADDRESS 
(3) 001130 000000 $LPERR: .WORD 0 3: CONTAINS SCOPE RETURN FOR ERRORS 
(3) 001132 000000 SERTTL: .WORD 0 3; CONTAINS TOTAL ERRORS DETECTED 
(3) 001134 000 SITEMB: .BYTE 0 ;; CONTAINS ITEM CONTROL BYTE 
(3) 0011355 001 SERMAX: .BYTE 1 3; CONTAINS MAX. ERRORS PER TEST 
(3) 001136 000000 SERRPC: .WORD 0 3; CONTAINS PC OF LAST ERROR INSTRUCTION 
(3) 001140 000000 $GDADR: .WORD 0 3: CONTAINS ADDRESS OF ‘GOOD’ .DATA 
(3) 0C?142 000000 $BDADR: .WORD 0 3: CONTAINS ADDRESS OF ‘BAD’ DATA 
(3) 001144 000090 $GDDAT: .WORD 0 3; CONTAINS ‘GOOD' DATA 
(3) 001146 000000 $BDDAT: .WORD 0 7; CONTAINS ‘BAD’ DATA 
(3) 001150 000000 -WORD Q 7; ;RESERVED--NOT TO BE USED 
(3) 001152 000000 . WORD 0 
(3) 001154 000 $AUTOB: .BYTE 0 ;; AUTOMATIC MODE INDICATOR 
(3) 001155 000 SINTAG: .BYTE 0 32 INTERRUPT MODE INDICATOR 
(3) 001156 000000 -WORD 0 
(3) 001160 177570 SWR : . WORD DSWR ; ADDRESS OF SWITCH REGISTER 
(3) 001162 177570 DISPLAY: .WORD DDISP ; ADDRESS OF DISPLAY REGISTER 
(3) 001164 177560 $TKS: 177560 ;zTTY KBD STATUS 
(3) 001166 177562 $TKAB: 177562 ;z TTY KBD BUFFER 
(3) 001170 177564 $TPS: 177564 7: TTY PRINTER STATUS REG. ADDRESS 
(3) 001172 177566 $TPB: 177566 seTty PRINTER BUFFER REG. ADDRESS 
(3) 001174 000 SNULL: .BYTE 0 >; CONTAINS NULL CHARACTER FOR FILLS 
(3) 001175 002 SFILLS: .BYTE 2 - = CONTAINS # OF FILLER CHARACTERS REQUIRED 
(3) 001176 012 SFILLC: .BYTE 12 +2 INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
(3) 001177 000 STPFLG: .BYTE 0 "TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
(3) 001200 000000 $REGAD: .WORD 0 =: CONTAINS THE ADDRESS FROM 
(3) ;zWHICH ($REGO) WAS OBTAINED 
(5) 001202 000000 $REGO: .WORD 0 ; CONTAINS (($REGAD) +0) 
(5) 001204 000000 $REG1: .WORD 0 3; CONTAINS (($REGAD) +2) 
(5) 001206 000000 $REG2: .WORD 0 7; CONTAINS (($REGAD) +4) 
(5) 001210 000000 $REG3: WORD 0 :¢ CONTAINS ( ($REGAD) +6) 
(5) 001212 000000 $REGS4: .WORD 0 sCONTAINS (($REGAD) +10) 
(5) 001214 000000 $REGS: .WORD 0 : : CONTAINS (($REGAD) +12) 
(5) 001216 000000 $TMPO: .WORD 0 ;2USER DEFINED 
(5) 001220 000000 $™MP1: .WORD 0 7 USER DEFINED 
(5) 001222 000000 STMP2: .WORD 0 ; USER DEFINED 
(5) 001224 000000 SIMP3: .WORD 0 ;;USER DEFINED 
(3) 001226 000000 STIMES: O >; ;MAX. NUMBER OF ITERATIONS 
(3) 001230 077 $QUES: .ASCI] /?/ ; ;QUESTION MARK 
(3) 001231 015 $CRLF ASCII <15> ;; CARRIAGE RETURN 
(3) 001232 000012 SLF: eASCIZ = <12> ;: LINE FEED 
(4) PL AAAAAARAARARAAARRRAHR RAK R EET HARHRERRHHHRAT RAR H ARH eee Ae He ee eee 
5 -SBTTL APT MAILBOX-ETABLE 
( 
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(5) £ FARA ARAAAARARAAAKAAAAAARAAATHAAAAAARAAAARARARHS CHARA HAAAAAAAHHEAAAE 
| «e EVEN 
(4) 001234 $MAIL : ; APT MAILBOX 
| (4): 001234 +—900000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
/ (4) 001236 000000 $FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
| (4) 001240 000000 STESTN: .WORD ATESTN ;; TEST NUMBER 
(4) 001242 000000 $PASS: .WORD APASS ;;PASS COUNT 
(4) 001244 006000 $DEVCT: .WORD ADEVCT ;:DEVICE COUNT 
(42 001246 000000 $UNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 
(4) 001250 000000 $MSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
(4) 001252 000000 $MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
(4) 001254 SETABLE: ;;APT ENVIRONMENT TABLE 
(4) 001254 000 ENV: .BYTE AENV ;; ENVIRONMENT BYTE 
(4) 001255 000 SENVM: .BYTE AENVM ;; ENVIRONMENT MODE BITS 
(4) 001256 0 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
(4) 001260 000000 $USWR: .WORD AUSWR ;;USER SWITCHES 
(4) 001262 000000 $CPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 
(4) :* BITS 15- 115CPU TYPE 
(4) :* 11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
(4) :* 11/70=06,PDQ=07,0=10 
(4) :* BIT 10=REAL TIME CLOCK 
(4) :* BIT 9=FLOATING POINT PROCESSOR 
(4) he BIT 8=MEMORY MANAGEMENT 
(4) 001264 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
(4) 001265 000 $MTYP1: .BYTE AMTYP1 :;MEM. TYPE ,BLKA1 
(4) :* MEM.TYPE BYTE =~ (HIGH BYTE) 
(4) ;* 900 NSEC CORE=001 
(4) :* 300 NSEC BIPOLAR=002 
(4) ;* 500 NSEC MOS=003 
(4) 001266 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLKA1 
(4) :* MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
(4) 001270 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
(4) 001271 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE,BLK#2 
(4) 001272 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS BLK#2 
(4) 001274 000 $MAMS3: .BYTE ; HIGH ADDRESS .M.S.BYTE 
(4) 001275 — 000 $MTYP3: .BYTE AMTYP3 :;MEM.TYPE,BLKA3 
(4) 001276 000000 $MADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS ,BLKA3 
(4) 001300 000 $MAMS4: .BYT@® AMAMS4 ;;HIGH ADDRESS .M.S.BYTE 
(4) 001301 000 SMTYP4: .BYTE AMTYP4 ;;:MEM. TYPE ,BLKA4 
(4) 001302 000000 $MADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS ,BLK#4 
(4) 091304 000 $VECT1: .WORD AVECT] ;; INTERRUPT VECTORM1,BUS PRIORITYA1 
(4) 001 $VECT2: .WORD AVECT2 ;; INTERRUPT VECTORM2BUS PRIORI TY#2 
(4) 001310 160010 SE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(4) 001312 $DEVM: .WORD ADEVM ;;DEVICE MAP 
(4) 001314 000000 $CDW1: .WORD ACDW1 ;;CONTROLLER DESCRIPTION WORDA1 
(4) 001316 000000 $CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
(4) 001320 0C0000 $DDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR wORD#O 
(4) 001322 000000 $DDW1: .WORD ADDWI ;;DEVICE DESCRIPTOR WORDA1 
(4) 001324 000000 $DDWe: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORD#2 
(4) 001326 000000 $DDW3: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORDAS 
(4) 001330 000000 $DDW4: .WORD ADDW4 ;;DEVICE GESCRIPTOR WORDM4 
(4) 001332 000000 $DDW5: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S 
(4> 001334 000 $DDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORD#6 
(4) 001336 000000 $DDW7: .WORD ADDW? ;;DEVICE DESCRIPTOR WORD#? 
(4) 001340 000000 $DDW8: .WORD ADDWB ;;DEVICE DESCRIPTOR WORD#8 
(4) 001342 000000 $DDW9: .WORD ADDW9 ;;DEVICE DESCRIPTOR WORD#9 
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(4) 001344 Q0000C $DDW10: .WORD ety :;DEVICE DESCRIPTOR WORD#10 
(4) 001346 Q0C000 $DDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORDA11 
(4) 001350 000000 $DDWi2: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORDA12 
(4) 001352 000000 $DDW13: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORD#13 
(4) 001354 000000 $DDW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
oa 001356 000000 $DDw15: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORDA15 
( 
(4) 
‘4) 001360 $SCTEND: 


-_— oer a ae em ee ele 
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iC MACY11 30A (1052) 24-JUN-81 09:46 PAGE 82-9 SEQ 0029 
C2 DIAG. ~~ a 24=JUN-81 09:45 ERROR POINTER TABLE 
3) .SBTTL ERROR POINTER TABLE 
(3) :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
(3) =*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
(3) **LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE Is PERTINENT. 
(3) = *NOTE1: IF $ITEMB iS O THE ONLY PERTINENT DATA IS ($ERRP 
3) = *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(3) :* EM ::POINTS TO THE ERROR MESSAGE 
(3) :* DH -:POINTS TO THE DATA HEADER 
(3) :* DT =:POINTS TO THE DATA 
(3) Z DF -:POINTS TO THE DATA FORMAT 
(3) 
(3) 001360 SERRTR: 
(2) :PROGRAM CONTROL PARAMETERS 
(2) . 
(2) 001360 000000 NEXT: 0 ;ADDRESS OF NEXT TEST TO BE EXECUTED 
(2) 001362 000000 LOCK: 0 -ADDRESS FOR LOCK ON CURRENT DATA 
(2) PROGRAM VARIABLES 
(5) SOS e ee 
(2) 001364 000377 LINE: 377 :DEFAULT ALL EIGHT LINES RUNNING 
(2) 001366 017070 PAR: 17070 =PARAMETERS: 8 BITS/CHAR.2 STOP BITS, 9600 BAUD,NO PARIT 
(2) 061370 000000 MODE: 0 -DEFAULT MAINTENANCE MODE 
(2) 001372 000000 SAVLIN: 0 sLINE NUMBER 
(2) 001374 000000 XMTLIN: O : TRANSMISSION LINE NUMBER 
(2) 001376 000000 XMTCNT: 0 =COUNT OF WORDS IN A TRANSMISSION PATTERN 
(2) 001400 000000 REGIST: 0 ;DEVICE ADDRESS STORAGE LOCATION 
(2) 001402 000000 SAVPC: 0O ; PROGRAM COUNTER STORAGE 
(2) 001404 000001 DZACTV: .BLKW 1 :*DZ711'S SELECTED ACTIVE. 
2) 001406 002001 RUN: 1 ;*POINTER ONE PAST RUNNING DEVICE. 
(2) 001410 000001 DZNUM: .BLKB 1 -*OCTAL NUMBER OF DZ11°S. 
(2) 001411 001 SAVNUM: .BYTE 1 = *WORKABLE NUMBER. 


(2) EVEN 
(2) 001412 001500 ACTIVE: DZ.MAP ; TABLE POINTER. 
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| CZ7DZAG.P11 24-JUN=81 09:45 ERROR POINTER TABLE 

(2) 

(2) ;PROGRAM CONTROL FLAGS 

c a ee 

(2) 

(2) 001414 000 EIAFLG: .BYTE QO ;0=EIA 100000=20MA 

<2) 001415 000 INIFLG: .BYTE 0 ;PROGRAM INITIALIZATION FLAG 

(2) 001416 000 HDRFLG: .BYTE 0 s;PROGRAM INITIALIZATION FLAG FOR HEADER MAP 

(2) 001417 000 MNTFLG: .BYTE 0 s;MAINTENANCE BIT SET FLAG 

(2) 001420 000 DONFLG: .BYTE 0 ; TRANSMISSION COMPLETION FLAG 

(2) 001422 EVEN 

(2) ;DATA VARIABLES 

(2) 001422 000000 TDO: -WORD QO 

(2) 001424 TD1 . WORD 0 

(2) 001426 000000 TD2 -WORD 0 

(2) 001430 000000 TD3 -WORD 0 

(2) 001432 000000 TDS -WORD QO 

(2) 14 00000 TDS .WORD 0 

(2) 001436 000000 TD6 -WORD 0 

(2) 001440 000000 TD7 -WORD OQ 

(2) 001442 000 TRO -WORD 0 

(2) 001444 Q00000 TRI . WORD 0 

(2) 001446 000000 TR2 .WORD 0 

(2) 001450 000000 TR3 -WORD 0 

(2) 001452 000000 TRS -WORD 0 

(2) 001454 000000 TRS -WORD 0 

(2) 001456 00000 TR6 -WORD 0 

(2) 001460 000000 TR7 -WORD 0 

(2) 001462 STOP: 

3: -SBTTL APT PARAMETER BLOCK 

(3) " LARA ERE REE EERE REE REAR RRR RERERE EERE EERE REE EERE EEE EEE 

(2) ;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

(3) SERRE ERR EEE EEE EERE ERE ee 

(2) 001462 . $X=. 32SAVE CURRENT LOCATION 

(2) 000074 -=24 3;zSET POWER FAIL TO POINT TO START OF PROGRAM 

(2) 000024 000200 200 :zFOR APT START UP 





-=44 7:z;POINT TO APT INDIRECT ADDRESS PNITR. 
>:;POINT TO APT HEADER BLOCK 
-=.$X : RESET LOCATION COUNTER 


Whe ORARARARARASRASASSRARRAARARA RASA ASRRRRRRR RRR RRR RRRR RRR ARREARS SS @ | 


ee 


;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


$SAPTHD: 
$HIBTS: .WORD 0 :;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
$MBADR: .WORD $MAIL 


— : :ADDRESS OF APT MAILBOX (BITS 0-15) 
$TSTM: .WORD 90. :;RUN TIM OF LONGEST TEST 


$PASTM: .WORD 95. 


oe 
.WORD $ETEND-$MAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 
3DZ11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


Tm = mmm me ge — e+ —— -_=— -- —_—— —_— 


+ ¢RUN TIME IN SECS. OF 1ST PASS ON 7 UNIT (QUICK VERIFY) 
sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


V—_—_—_——————— SS — eee —_— —- — — 


, # 
MACY11 30A(1052) 24=JUN-81 09:46 PAGE 82-11 SEQ 0031 


_CZDZA=G0 
C2DZ2AG.P11 ——- 26=JUN=81 09:45 APT PARAMETER BLOCK 
| (3) 001500 000001 DZCRO: .BLKW 1 ;CONTROL STATUS REGISTER FOR D211 NUMBER 0 
3) 901502 000001 D7vCO: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR D211 NUMBER 0 
(3) 001504 000001 D7LVO: .BLKW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
 €3) 001506 000001 LINEO: .BLKW 1 ALL LINES SELECTED 
' (3) 001510 000001 PARO: .BLKW 1 ; PARAME TERS 
3) 001512 000001 MANTO: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
( 
(3) 001514 000001 DZCR1: .BLKW 1 ;CONTROL STATUS REGISTER FOR DZ11_NUMBER 1 
(3) 001516 000001 D2VC1: .BLAW 1 ;RECEIVER AND BASE VECTOR FOR D211 NUMBER 1 
(3) 001520 000001 DZLV1: .BLKW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001522 000001 LINE}: .BLKW 1 ALL LINES SELECTED 
(3) 001524 000001 PAR]: .BLKW 1 ; PARAME TERS 
3) 001526 000001 MANT1: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001530 000001 DZCR2: .BLKW 1 ;CONTROL STATUS REGISTER FOR DZ11 NUMBER 2 
(3) 001532 000001 D7VC2: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 2 
(3) 001534 000001 D7LVe: .BLKw 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001536 000007 LINE2: .BLKW 1 ALL LINES SELECTED 
(3) 001540 000001 PAR2: ~BLKW 1 ; PARAMETERS 
(3) 061542 000001 MANT2: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001544 000001 DZC(R3: .BLKW 1 ;CONTROL STATUS REGISTER FOR DZ11_ NUMBER 3 
(3) 001546 000001 D2VC3: .BLKW 7 ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 3 
(3) 001550 000001 D7LV3: .BLKw 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001552 000001 LINE3: .BLKW 1 ALL LINES SELECTED 
(3) 001554 000001 FARS: -BLKW ; PARAMETERS 
(3) 001556 000001 MANT3: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001560 000001 DZCR4: .BLKwW 1 ;CONTROL STATUS REGISTER FOR DZ11 NUMBER 4 
(3) 001562 000001 D7VC4: .BLKW ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 4 
(3) 001564 000001 D7LV4: .BLKW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001566 000001 LINES: .BLKW 1 ALL LINES SELECTED 
(3) 001570 000001 PAR4: .BiKW 1 ; PARAME TERS 
(3) 001572 000001 MANT4: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001574 000001 DZCRS: .BLKW 1 ;CONTROL STATUS REGISTER FOR D211 NUMBER 5 
(3) 001576 000001 D7vC5: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 5 
(3) 901600 000001 DZLV5: .BLKW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001602 000001 LINES: .BLKW 1 ;ALL LINES SELECTED 
(3) 001604 000001 PAR5: .BLKW 1 ; PARAME TERS 
(3) 001606 000001 MANTS: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001610 000001 DZCR6: .BLKW 1 ; CONTROL STATUS REGISTER FOR DZ11 NUMBER 6 
(3) 001612 000001 D7VC6: .BLKW 1 “RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 6 
(3) 001614 000001 DZLV6: .BLKW ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
(3) 001616 000001 LINE6: .BLKW 1 ;ALL LINES SELECTED 
(3) 001620 000001 PAR6: .BLKW 1 ; PARAME TERS 
(3) 001622 000001 MANT6: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
(3) 001624 000001 DZCR7: .BLKW 1 ;CONTROL STATUS REGISTER FOR D211 NUMBER 7 
(3) 001626 000001 D2VC7?: .BLKw 1 ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 7 
(3) 001630 000001 DZLV7: .BLKW 1 ;PRIORITY LEVEL AND EJA FLAG SELECTOR 
(3) 001632 000001 LINE7: .BikW 1 ;ALL LINES SELECTED 
(3) 001634 000001 PAR7: .BLKW 1 ; PARAME TERS 
(3) 061636 000001 MANT7: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 


— 2. me - - ——_ 
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001776 


MACY11 Ss 
24-JUN=81 09: 


24=JUN-81 
APT 


PARAMETER BLOCK 
LZCR10: .BLKW 
DZ7VC10: .BLKW 
DZ7LV10: .BLKW 
LINE10: .BiKW 
PAR10: .BLKW 
MANT10: .BLKW 
DZCR11: .BLKW 
DZ2VC11: .BLKW 
DZ7LV11: .BLKW 
LINE11: .BLKW 
PAR11: .BLKW 
MANT11: .BLKW 
DZCR12: .BLKW 
DZ7VCi2: .BLKW 
DZLV12: .BLKW 
LINE12: .BLKW 
PAR12 BLKW 
MANT12: .BLKW 
DZCR13: .BLKW 
DZVC13: .BLKW 
DZLV13: .BLKW 
LINE13 BLKW 
FAR13 -BLKW 
MANT13: .BLKW 
DZCR14: .BLKW 
DZVC14: .BLKW 
DZLV14: .BLKW 
LINE14: .BLKW 
PAR14: .BLKW 
MANT14: .BLKW 
DZCR15: .BLKW 
DZVC15: .BLKW 
DZLV15: .BLKW 
LINE15: .BLKW 
PAR15: .BLKW 
MANT15: .BLKW 
DZCR16: .BLKW 
DZVC16: .BLKW 
DZLV16: .BLKW 
LINE16: .BLKW 
PAR16: .BLKW 
MANT16: .BLKW 
DZCR17: .BLKW 
DZVC17: .BLKW 
DZLV17: .BLKW 
LINE17: .BikW 
PAR17: .BLKW 
MANT17: .BLKW 
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el ed ee ed 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 10 
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 10 


;PRIORITY LEVEL AND EIA FLAG SELECTOR 
;ALL LINES SELECTED 

; PARAMETERS 

:MAINTENANCE MODE FOR THIS DEVICE 


s;CONTROL STATUS REGISTER FOR DZ11 NUMBER 11 
sRECEIVER AND BASE VECTOR FOR DZ117 NUMBER 117 
sPRIORITY LEVEL AND EIA FLAG SELECTOR 

;ALL LINES SELECTED 

;PARAMETERS 

;MAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 12 
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER i- 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 

;ALL LINES SELECTED 

; PARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


:CONTROL STATUS REGISTER FOR DZ11 NUMBER 13 
:RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 13 
sPRIORITY LEVEL AND EIA FLAG SELECTOR 

;ALL LINES SELECTED 

; PARAMETERS 

sMAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 14 
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 14 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 

;ALL LINES SELECTED 

; PARAMETERS 

;MAINTENANCE MODE FOR THIS DEVICE 


:CONTROL STATUS REGISTER FOR DZ11 NUMBER 15 
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 15 
;PRIORITY LEVEL AND EIA FLAG SeLECTOR 

;ALL LINES SELECTED 

; PARAMETERS 

;MAINTENANCE MODE FOR THIS DEVICE 


:CONTROL STATUS REGISTER FOR DZ11 NUMBER 16 
sRECEIVER AND BASE VECTOR FOR DZ11 NUMBER 16 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 


ALL LINES SELECTED 
; PARAMETERS 
:MAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 17 
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 17 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 

;ALL LINES SELECTED 

; PARAMETERS 

;MAINTENANCE MODE FOR THIS DEVICE 


SEQ 0032 


| (mercies i i eer ii: se et Ti eee pie, eee ~— -——-< - — - —— - 
| 


| CZDZA=GO 
C7DZAG.P11 


(1) 002000 


MACY11 30A(1052) 24=JUN-81 09:46 PAGE 82-13 
24-JUN=81 09:45 APT PARAMETER BLOCK 


177777 DZ.END: 177777 


SEQ 0033 
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| : 2 
| CZ7DZA=GO MACY11 30A(1052) 24=JUN-81 09:46 PAGE 82-14 SEQ 0034 
| CZDZAG.P11 24-JUN=81 09:45 APT PARAMETER BLOCK 
| (1) ;DEFINITIONS FOR TRAP SUBROUTINE CALLS 
| (1) :POINTERS TO SUBROUTINES CAN BE FOUND 
| ae 7 IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 
| (1) SERRA RAE ERERERAE REE RE ERE EAEREREER RARER EREE EERE REE E EEE ee 
OF LL LL LD 
(1) 002002 .TRPTAB: 
(3) 104400 ADVANCE =TRAP+0 ;CALL TO ADVANCE TO NEXT TEST( OR SCOPE THIS ONE) 
(2) 002002 007216 ADVANCE 
(3) 104401 SCOP1=TRAP+1 ;CALL TO LOOP ON CURRENT DATA HANDLER 
(2) 002004 005376 . SCOP 1 
(3) 104402 TYPE= TRAP +2 ;CALL TO TELETYPE OUTPUT ROUTINE 
(2) 002006 005422 YPE 
(3) 104403 INSTR= TRAPS 3 ;CALL TO ASCII STRING INPUT ROUTINE 
(2) 002010 006252 . INSTR 
(3) 104404 INSTER=TRAP+4 ;CALL TO INPUT ERROR HANDLER 
(2) 002012 006426 . INSTER 
(3) 104405 PARAM=TRAP+5 ;CALL TO NUMERICAL DATA INPUT ROUTINE 
(2) 002014 006446 . PARAM 
(3) 104406 SETFLG=TRAP+6 ;CALL TO SET FLAG ROUTINE 
(2) 002016 011152 -SETFLG 
(3) 104407 SAVO5=TRAP+7 ;CALL TO REGISTER SAVE ROUTINE 
(2) 002020 004646 . SAVO5 
(3) 104410 RESOS=TRAP+10 ;CALL TO REGISTER RESTORE ROUTINE 
(2) 002022 006706 ~RESO5 
(3) 104411 CONVRT=TRAP+11 ;CALL TO DATA OUTPUT ROUTINE 
(2) 002024 006740 . CONVRT 
(3) 104412 CNVRT=TRAP+12 ;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
(2) 002026 006744 . CNVRT 
(3) 104413 DEVICE. CLR=TRAP+13 ;CALL TO ISSUE A DEVICE CLEAR 
(2) 002030 007144 .DEVICE.CLR 
(3) 104414 DELAY=TRAP+14 :CALL TO DELAY FOR FAST CPU'S 
(2) 002032 007176 - DELAY 
(3) 104415 PARMD= age *O- ;CONVERT DECIMAL STRING TO OCTAL 
(2) 062034 026170 RMD 
(3) 104416 PAWCH= TRAP* 16 :SET FLAG ECHO OR CABLE 
(2) 002036 026364 PAWCH 
(3) 104417 DCLASM=TRAP+17 :CLEAR DEVICE, SET MAINT. BIT IF I MODE 
i? 002040 007164 .DCLASM 
(1) ft ee ee ee eee ete eese= 
(1) SRA EEE EERE REAR E REAR RAA ERATE ERE EEE ERR EERE ERR eee 


aps, —-- —— i ee ee oe ee eee eee 
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CZDZ2A=GO MACY11 30A( 1052) 24=JUN-81 09:46 PAGE 82-15 cs SEQ 0035 

C2DIAG. P11 24=JUN=81 09:4 APT PARAMETER BLOCK 
(1) :DZ711 VECTOR AND REGISTER INDIRECT POINTERS 
CM) “WORKING AREA 
(4 
(1) 002042 160040 DZ2CSR: 160040 :R/w 
(1) 002044 160041 HDZCSR: 160041 : 
(1) 002046 160042 DZRBUF: 160042 :READ ONLY 
(1) 002050 160043 HD ZRBUF : 160043 ;READ ONLY 
(1) 002052 160042 DZLPR: 160042 ;wWRITE ONLY 
(1) 002054 160043 HDZLPR: 160043 :WRITE ONLY 
(1) 002056 160044 DZTCR: 160044 :R/W 
(1) 2060 160045 HDZTCR: 160045 :R/W 
(1) 002062 160046 DZMSR: 160046 :READ ONLY 
(1) 002064 160047 HDZMSR: 160047 =READ ONLY 
(1) 002066 160046 DZTDR: 160046 :WRITE ONLY 
(1) 002070 160047 HDZTDR: 160047 :WRITE ONLY 
(1) -DEFAULT DZ VECTORS 
(1) 002072 000300 DZRIV: 300 :REC INTR VECTOR 
(1) 002074 000302 DZRIS: 302 “REC INTR STATUS 
(1) 002676 000304 DZTIV: 304 “XMIT INTR VECTOR 
) 0C2100 000306 D2TIS: 306 “XMIT INTR STATUS . 
(7) 





ee em eae ee ee eC; 
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PT PARAMETER BLOCK 


MACY11 30A(1052) 24=-JUN-8 
745 “ 


CZDZA=GO 
CZDZAG.P11 24-JUN-81 09: 


;TIME TABLE FOR RELATIVE TIMINC TESTS 


(1) 

(1) 

4) 

(1) 

(1) 002102 TMTBL 

(1) 002102 000000 0 
(1) 002104 000000 775 0 
(1) 002106 000000 T7110 0 
(1) 002110 000000 7134 0 
(1) 002112 000000 7150 0 
(1) 002114 000000 T300 0 
(1) 002116 000000 0 
(1) 002120 Q00000 T1200: 0O 
(1) 002122 000000 T1800: 0O 
(t) 002124 000000 T2000: O 
(1) 002126 000000 T2400: 0 
(1) 002130 T3600: O 
(1) 002132 000000 T4800: O 
(1) 002134 0 T7200: OQ 
(1) 136 000 0 
(1) 002140 00 TEIGHT:0 
(1) ; © 
(1) 0 
(7) 0 


ee ee ee - — — 


ome 
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CZDZAG.P11 24-JUN-81 PROGRAM INITIALIZATION AND START UP. 
(1) 
(1) ;PROGRAM INITIALIZATION 
()) ;LOCK OUT INTERRUPTS 
(1) ;SET UP PROCESSOR STACK 
(1) ;SET UP POWER FAIL VECTOR 
(1) ;CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
a ;TYPE TITLE MESSAGE 
(1) 002150 ~ START: 
(1) 002150 000005 RESET ;CLEAR THE WORLD. START NEW ENVIRONMENT 
» 002152 012706 001120 MOV ASTACK,SP ;SET UP STACK 
» 002156 106427 000340 MTPS #PR7 ;LOCK OUT INTERRUPTS 
» 002162 012737 010320 000024 MOV ASPWRDN , a4 24 ;SET UP POWER FAIL VECTOR 
» 002170 012737 005122 000020 MOV #$SCOPE ,a#IOTVEC :SET VECTOR FOR SCOPE ROUTINE 
» 002176 012737 000340 000022 MOV #340 ,aMIOTVEC+2 LEVEL 7 
) 002204 012737 007230 000030 MOV ASERROR ,a#EMTVEC SET VECTOR FOR ERROR ROUTINE 
» 002212 012737 000340 000032 MOV #340 ,aAEMTVEC+2 LEVEL 7 
» 002220 012737 007122 000034 MOV #.TRPSR,@ATRAPVEC :SET VECTOR FOR TRAP CALLS 
» 002226 012737 000340 000036 MOV #340, a#TRAPVEC+2 sLEVEL 7 
» 002234 012737 010320 000024 MOV #SPWRDN , aAPWRVE C ;SET VECTOR FOR POWER FAIL ROUTINE 
) 002242 012737 000340 000026 MOV #340, a#PWRVEC+2 LEVEL 7 
» 002250 113737 001410 001417 MOVB DZNUM, SAVNUM ;SAVE NUMBER OF DEVICES IN SYSTEM. 
» 002256 005037 001242 CLR $PASS ;CLEAR PASS COUNT 
) 002262 105037 001123 CLRB SERFLG ;CLEAR ERROR FLAG 
) 22 012737 001500 001412 MOV #DZ.MAP,ACTIVE ;GET MAP POINTER 
) 002274 012737 000001 001406 MOV #1 ,RUN :POINT POINTER TO FIRST DEVICE. 
» 002302 005037 001132 CLR SERTTL ;CLEAR ERROR COUNT 
» 0023506 005037 0011356 CLR SERRPC :CLEAR LAST ERROR POINTER 
» 002312 005037 001122 CLR $TSTNM ;SET UP FOR TEST 1 
) 002316 0127357 002150 001126 MOV #.START,$LPADR Soest ies Etenta FAIL BEFORE 
) ;SET UP FOR SMALL 11 SWITCH REGISTER COMPATIBILITY 
) 002324 013746 000006 MOV 6,~(SP) ;SAVE BUS ERROR PS 
) 002330 015746 000004 MOV 4,- (SP) ;SAVE BUS ERROR PC 
» 002334 012737 002354 000004 MOV #20$,4 :SET UP_TO TRAP TO THIS ROUTINE 
) 2342 022777 177777 176610 CMP #-1 ,aSWR ;CAN 177570 BE REFERENCED? 
) 002350 001402 BEQ 22$ :I1F SO AND IT IS ~-1, TREAT LIKE SWITCHLESS 
» 002352 07 21$ : IF YES,SKIP AROUND THE SETUP 
) 002354 022626 POP2SP ;REMOVE THE TRAP FROM THE STACK 
) 002356 012737 000176 001160 MOV ASWREG, SWR ; IF NO, TRAP COMES HERE.POINT TO SOFTWARE SWR 
) 002 012737 000174 001162 MOV #DISPREG,DISPLAY ;POINT TO SOFTWARE DISPLAY REGISTER 
) 002372 012637 000004 MOV (SP)+,4 ;RESTORE THE BUS ERROR VECTOR 
) 002376 012637 000006 MOV (SP)+,6 
» 002402 105737 001415 TSTB INIFLG ;TITLE ALREADY PRINTED? 
» 002406 1010 BNE 29$ “BRANCH IF YES 
» 002410 023727 000042 005056 CMP @442 ,ASENDAD ;RUNNING UNDER ACT? 
) 002416 001402 BEQ 31$ 71F YES DONT PRINT TITLE 
) 002420 104402 001000 TYPE e-MTITLE :PRINT THE ee S TITLE 
) 002424 105357 001415 DECB INIFLG ;SET THE ONCE ONLY FLAG 
» 002430 105737 001255 TSTB SENVM :DETERMINE WHETHER APT SIZING SHOULD BE DONE 
») 002434 1 BPL 30$ ;IF NOT, GO CHECK FOR AUTO-SIZING 
) 0024356 004737 012112 JSR PC,SETAPT “OTHERWISE, GO DO APT SIZING FROM ETABLE 
) ;REPLACE ‘'CLRB HDRFLG’' WITH NOP'S 
) 002442 000240 NOP 
) 002444 000240 NOP 
) CLRB HDRFLG ;MAKE SURE STATUS TABLE IS PRINTED 


ee ee ee —_ 
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CZD2Z 
CZDZAG.P11 24-JUN=81 09:45 PROGRAM INITIALIZATION AND START UP. 
002446 000137 004420 JMP 16$ ;GO PRINT D2 STATUS TABLE 
002452 032777 000001 176500 30$: BIT #SW00 ,aSWR :RESELECT 
002460 001011 BNE 32$ 31° YES. 60 SET UP THE INFORMATION 
002462 122737 000377 001415 CMPB #377, INIFLG :ON 1ST START; MUST ANSWER QUESTION 
002470 001003 BNE .+10 :IF NOT ANSWERING QUESTIONS 
002472 105777 176462 TSTB @SWR sARE U AUTO SIZING? 
002476 100402 BM! 32$ ;NO AUTO SIZE! NO SWOO=1 ON 1ST START! 
002500 000137 003244 JMP 73$ ;IF NO, SKIP THE INTEF 20GATION 
002504 012700 001500 32$: MOV #DZ.MAP,RO :POINT TO THE BEGINNING OF THE MAP TABLE 
002519 105037 001416 CLRB HDRFLG ;MAKE SURE A MAP GETS PRINTED 
002514 005020 65$: CLR (RO) + ;CLEAR A TABLE LOCATION 
002516 020027 002000 CMP RO,ADZ.END :HAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
002522 001374 BNE 65$ ;IF NOT ,CLEAR THE NEXT LOCATION IN THE TABLE 
002524 105537 001415 DECB INIFLG : INSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 


: THE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 
:TABLE AND SET UP THE DIAGNOSTIC. 


;GET THE BASE ADDRESS OF THE DZ11°S 


002530 33$: 
002530 104403 INSTR :CALL THE STRING INPUT ROUTINE 
002532 003464 66$ s:POINTER TO MESSAGE TO BE PRINTED 
002534 104405 PARAM :CALL THE OCTAL TO ASCII CONVERT ROUTINE 
002536 160000 160000 s;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
002540 163770 163770 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
002542 001500 DZCRO s;POINTER TO MAP LOCATION TO BE FILLED 
002544 007 BYTE 7 :MASK OF INVALID BITS FOR THIS PARAMETER 
002545 001 .BYTE 1 ;NUMBER OF PARAMETERS TO STORE 
002546 013737 001500 001310 MOV DZCRO, $BASE :COPY BASE ADDRESS TO ETABLE 
;GET THE BASE VECTOR ADDRESS 
002554 34$: 
002554 104403 INSTR :CALL THE STRING INPUT ROUTINE 
002556 003530 67$ :POINTER TO MESSAGE TO BE PRINTED 
002560 104405 PARAM CALL THE OCTAL TO ASCII CONVERT ROUTINE 
002562 000300 300 s;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
002564 000776 776 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
002566 001502 DZVCO :POINTER TO MAP LOCATION TO BE FILLED 
002570 003 -BYTE 3 sMASK OF INVALID BITS FOR THIS PARAMETER 
: 002571 001 BYTE 1 :NUMBER OF PARAMETERS TO STORE 
at 002572 013737 001502 001304 MOV DZVCO,$VECT1 :;COPY VECTOR TO ETABLE 
3. ;GET THE BUS REQUEST LEVEL 
(2) 002600 104403 INSTR :;CALL THE STRING INPUT ROUTINE 
(2) 002602 003571 68$ :POINTER TO MESSAGE TO BE PRINTED 
(2) 002604 104405 PARAM :CALL THE OCTAL TO ASCII CONVERT ROUTINE 
(2) 002606 000004 4 ;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002610 000007 7 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 002612 001504 DZLVO sPOINTER TO MAP LOCATION TO BE FILLED 
(2) 002614 000 BYTE 0 sMASK OF INVALID BITS FOR THIS PARAMETER 
(2) 002615 001 .BYTE 1 = NUMBER OF PARAMETERS TO STORE 
(1) 002616 113737 001504 001305 MOVB DZLVO.$VECT1+1 ;GET BUS REQUEST LEVEL INTO ETABLE 
(1) 002624 106337 0013505 ASLB S$VECT1+1 “ALIGN THE BITS PROPERLY 
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001 
012737 


001305 


004260 
001220 
176300 
176274 
177600 
000023 
176254 
176250 


177600 
000021 


000021 


000015 
176212 
100000 
000102 
100000 


000377 001506 


24-JUN-81 
PROGRAM INITIALIZATION AND START UP. 


001504 


001504 


80$: 


101$: 


83$: 


102$: 


_ B18: 
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;ALIGN 
; ALIGN 
; ALIGN 
; ALIGN 


THE BITS PROPERLY 
THE BITS PROPERLY 
THE BITS PROPERLY 
THE BITS PROPERLY 


;FIND OUT IF MODULE IS EIA OR 20 MA. 


ASLB SVECT1+1 
ASLB SVECT1+1 
ASLB S$VECT1+1 
ASLB = SVECT1+1 
TYPE 74$ 

CLR $TMP1 

TSTB = ASTKS 

BPL 80$ 

MOV a$TKB,-(SP) 
BIC #177600, (SP) 
CMPB = #$XOFF, (SP) 
BNE 83$ 

TSTB = aSTKS 

BPL 101$ 

MOVB  a@$TKB, (SP) 
BIC 77600. (SP) 
CMPB = #$XON, (SP) 
BNE 101$ 

TST (SP) + 

BR 80$ 

CMPB = #$XON, (SP) 
BNE 102$ 

TST (SP) + 

BR 80$ 

CMPB = #15, (SP) + 
BEQ 81$ 

MOV -(SP) ,a$TPB 
BIC #B1T15,DZLVO 
CMPB ~=—s-_- #102, (SP) + 
BNE 80$ 

BIS #811T15,DZLVO 
BR 80$ 


;PRINT EIA MESSAGE 

;USE $STMP1 

31S KEYBOARD DONE? 

3I1F NOT, WAIT FOR IT 

sIF YES, PUT CHARACETR ON STACK 
= STRIP DOWN CHARACTER 

31S IT A XOFF? 

“BR IF NOT 72DSH 


;WAIT FOR A CHARACTER ; = DSH=-BHL 

; = DSH=-BHL 
;GET CHARACTER ; = DSH=-BHL 
;STRIP DOWN CHARACTER ; = DSH-BHL 
:WAIT FOR A XON? ; ;DSH-BHL 
;GET NEXT CHAR IF NOT ; ;DSH=-BHL 


POP STACK ;2DSH 


“WAIT FOR A CHAR 3 DSH 

:IS IT A RANDOM XON ; :DSH-BHL 
;BR IF NO : :DSH-BHL 
sELSE, POP STACK : ;DSH-BHL 
:GO GET NEXT CHAR ; ;DSH-BHL 


:IF SO, GET OUT 

:IF NOT, PRINT CHARACTER 
> CLEAR EIA FLAG 

:IS IT A B? 


;IF NOT, GO BACK FOR INPUT 
s1F SQ, SET FLAG 
:GET MORE INPUT 


;GET THE MODE OF OPERATION (E,1,S) 


:CALL THE STRING INPUT ROUTINE 


;POINTER TO THE MESSAGE TO BE PRINTED 


;CALL THE MAINTENANCE FLAG SETUP ROUTINE 
:THIS IS THE FLAG BEING SETUP 


;GET THE NUMBER OF’ DZ11°S RUNNING 


BYTE : 


#377 ,LINEO 


:CALL THE STRING INPUT ROUTINE 

;POINTER TO MESSAGE TO BE PRINTED 

;CALL THE OCTAL TO ASCII CONVERT ROUTINE 
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 


;HIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 


;POINTER TO MAP LOCATION TO BE FILLED 
sMASK OF INVALID BITS FOR THIS PARAMETER 
;NUMBER OF PARAMETERS TO STORE 


;SET UP DEFAULT LINES 


SEQ 0039 


ti 
B 4 
_CZDZA=GO MACY11 30A(1052) 24=JUN-81 09:46 PAGE 82-20 SEQ 0040 
‘eorege ste 24-JUN-81 09:45 PROGRAM INITIALIZATION AND START UP. 
(1) 003040 012737 017070 001510 MOV #17070,PARO s;SET UP DEFAULT LPR PARAMETE 
| (1) “RECEIVER ON; 9600 BAUD; SS TOP BITS; 8 BIT/CHAR 
| (1) 003046 012737 000001 007214 MOV #1 ,DLYCNT s INITIALIZE DELAY COUNT 
, (1) 003054 032777 000010 175076 BIT #SW03,aSWR DO YOU WANT PARAMETERS? 
(1) 003062 001402 BEQ 40$ : IF NO, SKIP THE PARAMETER CALL 
(1) 003064 004737 003274 JSR PC ,23$ :GET PARAMETERS 
(1) 00307C 012737 000001 001312 40$: MOV #1 ,$DEVM sINISFIALIZE ACTIVE DEVICE SELECTION PARAMETER 
(1) 003076 113737 001220 001410 MOVB $TMP1,DZNUM -COPY THE NUMBER OF DEVICES 
(1) 0903104 113737 001220 001411 MOVB $STMP1, SAVNUM ;COPY A BACKUP NUMBER 
(1) 003112 005337 001220 62$: DEC STMP1 -$TMP1 CONTAINS THE COUNT OF UNINITIALIZED 
(1) 003116 001404 BEQ 61$ - SELECTED DEVICES 
(1) 003120 000261 SEC :SET A BIT FLAG TO INDICATE AN ACTIVE DEVICE 
(1) 003122. 006137 001312 ROL $SDEVM :POINT TO THE NEXT DEVICE 
(1) 003126 000771 KR 62$ :GO DO THIS PROCEDURE AGAIN 
(1) 003130 013737 001312 Q01222 61$: MOV S$DEVM,$TMP2 34 OF TIMES 
(1) 003136 013737 001312 001404 MOV SDEVM,DZACTV :COPY THE ACTIVE DEVICE PARAMETER — 
(1) 003144 012700 001500 MOV #DZCRO,RO SET A POINTER TO THE SPECIFIED INFORMATION 
(1) 003150 012701 001514 MOV #DZCR1,R1 sPOINT R1 TO THE REST OF THE MAP TABLE 
(1) 003154 012702 001320 MOV #$DDWO,R2 s;POINT TO ETABLE’S DEVICE DESCRIPTOR WORDS 
(1) 003160 000241 CLC : INITIALIZE THE ‘’C’’ BIT FOR A ROTATION 
(1) 003162 006037 001222 ROR $TMP2 :SKIP MAPPING SETUP FOR DEVICE O- IT’S DONE 
(1) 003166 006237 001222 64$: ASR STMP2 : ISOLATE A SELECTION FLAG IN THE ‘'C’’ BIT 
(1) 003172 103404 BCS 41$ :I1S THsao DEVICE SELECTED? IF YES, GO LOAD TABLE 
(1) 003174 012711 177777 MOV #-1,(R1) ; TERMINATE THE LIST 
(1) 003200 000137 004374 JMP 63$ :GO TO THE NEXT BLOCK 
(1) 003204 012011 41$: MOV (RO)+,(R1) = ADDRESS 
(1) 003206 062721 000010 ADD #10, (R1)+ sPOINT TO THE NEXT DZ11 ADDRESS VALUE 
(1) 003212 012011 MOV (RO)+, (R1) VECTOR 
(1) 003214 062721 000010 ADD #10, (R1)+ “ POINT TO THE NEXT VECTOR VALUE 
(1) 003220 012021 MOV (RO) +, (R1)+ “LEVEL 
(1) 003222 012021 MOV (RO)+,(R1)+ sLINES 
(1) 003224 016012 177774 MOV -4 (RO), (R2) s;GET THE EIA FLAG FROM THE PRIORITY WORD 
(1) 003230 042712 077777 BIC #77777, (Re) s ISOLATE THAT FLAG 
(1) 003234 051022 BIS (RO), (R2)+ “ADD PARAMETERS TO DEVICE DESCRIPTOR WORD 
(1) 003236 012071 MOV (RO)+,(R1)+ ;PARAMETERS 
(1) 003240 012021 MOV (RO)+,(R1)+ *MAINTENANCE MODE 
(1) 003242 000751 BR 64$ 
(1) 003244 032777 000010 175706 /73$: BIT #SW03,aSWR :ASK PARAMETERS ? 
(1) 003252 001002 BNE 42$ : IF NO, GO DO AUTO SIZING 
(1) 003254 000137 004374 JMP 63$ ;GO SET UP FOR AUTO SIZING 
(1) 003260 004737 003274 42$: JSR PC,23$ :GO ASK PARAMETERS 
(1) 003264 105337 001415 DECB INIFLG ; INSURE NO AUTO SIZE IF QUESTIONS ANSWERED 
aa 0032-70 000137 004420 JMP 16$ :GO 70 THE NEXT BLOCK 
Sf ;GET THE ACTIVE LINES PARAMETER 
(1) 003274 23$: 
(2) 003274 104403 INSTR CALL THE STRING INPUT ROUTINE 
(2) 003276 003614 69$ :POINTER TO MESSAGE TO BE PRINTED 
(2) 003300 104405 PARAM :CALL THE OCTAL TO ASCII CONVERT ROUTINE 
(2) 003302 000001 sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 003304 000377 377 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 003306 001506 L INEO :POINTER TO MAP LOCATION TO BE FILLED 
(2) 003310 000 -BYTE 0 :MASK OF INVALID BITS FOR THIS PARAMETER 
(2) 003311 001 BYTE 1 :NUMBER OF PARAMETERS TO STORE 
(1) 003312 105037 001416 CLRB HDRFLG sMAKE SURE THE CHANGES ARE PRINTED 
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(1) 

(1) ;THIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 

+4 ;1S LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED 

(1) 003316 £46 I 001512 TST MANTO ;I1S STAGGERED THE MODE OF OPERATION? 

<1) 003322 100021 BPL 26$ ;I1F NOT, SKIP THIS SEGMENT 

(1) 003324 013703 001506 MOV LINEO,R3 :GET A SCRATCH COPY OF THE ACTIVE LINES 

(1) 003330 006003 24$: ROR R3 :GET A LINE SELECTION BIT(CEVEN NUMBER LINE) 
(1) 003332 103410 BCS 25$ :IF iT IS SELECTED, CHECK TO SEE IF THE NEXT IS TOO 
(1) 003334 001414 BEQ 26$ ;IF ALL HAVE BEEN CHECKED, CONTINUE PROCESSING 
(1) 003336 006203 ASR R3 ;IF IT IS 0,CHECK TO SEE IF THE NEXT IS TOO 
(1) 003340 1035573 BCC 24$ ;1F THIS ONE'S 0 TOO, GO CHECK THE NEXT PAIR 
(1) 003342 104402 001230 27$: TYPE , $QUES ;THIS IS AN INCORRECT PARAMETER 

(1) 003346 104402 011075 TYPE ,-MBADLN :LET THE USER KNOW ABOUT IT 

(1) 003352 000750 BR 23$ ;GO GET THE CORRECT PARAMETER 

(1) 003354 001772 25$: BEQ 27$ ;1F ANOTHER FLAG ISN'T SET, THERE*S AN ERROR 
(1) 005356 9062035 ASR R3 :GET THE NEXT FLAG 

(1) 003360 103370 BCC 27$ ;IF IT ISN*T SET, THERE'S AN ERROR 

(1) 003362 000241 CLC ; INITIALIZE THE ‘'C’’ BIT FOR TESTING OF THE NEXT PAIR 
ae 003364 000761 BR 24$ ;GO TEST THE NEXT PAIR OF FLAGS 

ae ;GET THE LINE PARAMETER REGISTER ARGUMENT 

(1) 003366 26$: 

(2) 003366 104403 INSTR ;CALL_ THE STRING INPUT ROUTINE 

(2) 003370 003670 70$ ;POINTER TO MESSAGE TO BE PRINTED 

(2) 003372 104405 PARAM ;CALL THE OCTAL TO ASCII CONVERT ROUTINE 

(2) 003374 000000 0 ;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 003376 000017 17 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
(2) 003400 001510 PARO ;POINTER TO MAP LOCATION TO BE FILLED 

(2) 003402 000 -BYTE QO ;MASK OF INVALID BITS FOR THIS PARAMETER 

(2) 003405 001 -BYTE 1 ;NUMBER OF PARAMETERS TO STORE 

(1) 003404 012702 001506 MOV ALINEO,R2 sPOINT TO THE LINE SELECTION PARAMETER 

(1) 003410 012703 001510 MOV APARO ,R3 peg TO THE CHOSEN PARAMETERS 

(1) 003414 011304 MOV (R3) ,R4 |, BAUD RATE AS AN INDEX IN DELAY TABLE 
(1) 003416 006304 ASL R4 ALIGN INDEX ON WORD BOUNDARY 

(1) 003420 016437 031522 007214 MOV DLYTBL(R4), DLYCNT ;SET THE DELAY COUNT FOR THIS BAUD RATE 
(1) 003426 000313 SWAB (R3) PLACE IN HIGH BYTE 

(1) 003430 052713 010070 BIS #10070, (R3) :PLACE EXTRA PARAMETERS INTO LOC 

(1) 003434 011262 000014 283: MOV (R2),14(R2) ;LOAD THE LINES 

(1) 003440 011363 000014 MOV (R3),14(R3) :LOAD THE PARAMETERS 

(1) 003444 062702 000014 ADD #14,R2 :POINT TO THE NEXT SET 

(1) 003450 062703 000014 ADD #14,R3 - OF BOTH PARAMETERS 

(1) 003454 020327 001774 CMP R3,A4PAR17 HAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
(1) 003460 001365 BNE soe ;IF NOT, GO LOAD SOME MORE PARAMETERS 

(1) 003462 000207 RTS :RETURN TO CALLING BLOCK 

(1) 003464 030600 052123 041440 66$: -ASCIZ <200>/151 CSR ADDRESS (160000: 163700) : / 

(1) 003530 030600 052123 053040 6/7$: -ASCIZ <200>/1ST VECTOR ADDRESS (300:770): / 

(1) 003571 2 051102 046040 68$ -ASCIZ <200>/BR LEVEL (4:6): / 

(1) 003614 046200 047111 051505 69%: eASCIZ <200>/LINES ACTIVE BY BIT <IN OCTAL>(001:577): / 

(1) 042200 043105 052501 /70$: -ASCIZ <200>/DEFAULT BAUD RATE <IN OCTAL>(00:16): / 

(1) 003740 021600 047440 020106 /71$: -ASCIZ <200>/A OF DZ11°S <IN OCTAL> (1:20): / 

(1) 044501 052116 72% ASCII <200>/MAINTENANCE MODE/ 

(1) 004023 2 055440 054105 ASCII <200>/ CEXTERNAL <H325>-EIA ONLY (E)J/ 

(1) 004071 200 055440 047111 ASCII <200>/ CINTERNAL <DZCSRO5=1> (1) J/ 

(1) 004137 200 055440 052125 ASCII <200>/ CSTAGGERED <H5271>-EIA ONLY (S)J: / 
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20C 
052200 
042600 
004374 
122737 
001006 


22700 
001372 


012264 
001416 


001416 


177777 


000042 
000100 
010771 


174436 
010643 


174416 


001404 


000020 


000300 
000302 


001000 


24-JUN-81 
PROGRAM INITIALIZATION AND START UP. 


<200>/ [STAGGERED <H3190>=20MA ONLY S)J: / 
<200>/TYPE ‘'A’' FOR EIA MODULE OR ‘B" FOR *30 MA (A:B): / 
<200>/ENTER DELAY PARAMETER: / 


001222 


174454 


001312 


001404 


174400 


16$: 


5$: 


17$: 


1$: 


9$: 
2$: 


3$: 


18$: 
4$: 
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a 
#B1T7,aSWR 
16$ 


PC ,AUTO.SIZE 
HDRFLG 


#SW06,aSWR 
3$ 


»MNEW 
RO 


@SWR,$DEVM 
2$ 

»-MERR3S 

9$ 

@SWR ,DZACTV 
DZACTV,RO 
#SWO04 ,aSWR 
18$ 


(RO) +,(R1)+ 
#1000,R0 
4$ 


3TEST START AND RESTART 


;ONLY DO AUTO SIZE ON 1ST START 


;BIT7=1?? 

;BR IF NO AUTO SIZE 

;GQ DO THE AUTO SIZE 

:HAS THE TABLE BEEN TYPED YET? 

;IF SO, DON'T TYPE IT AGAIN 

; INDICATE THAT THE TABLE WILL BE TYPED 


;POINT TO THE MAP LOCATION 

:SET DATA 

sEND OF LIST? 

;BR IF YES 

;CALL THE OCTAL TO ASCII CONVERSION ROUTINE 
;CONVERT THE DATA AT THIS ADDRESS 

;GO PRINT THE NEXT PARAMETER 

iI PROGRAM RUNNING UNDER MONITOR 


YES 
:DESELECT SPECIFIC DEVICES?? 


;TYPE THE MESSAGE. 

:ZERO DATA DISPLAY 

:WAIT FOR USER TO TELL WHAT DEVICES TO RUN 
;I1S THE NUMBER VALID? 

:BR IF NUMBER IS OK. 

>TELL USER OF INVALID NUMBER. 

:STOP EVERY THING. 

:RESTART THE PROGRAM AGAIN. 

;GET NEW DEVICE PATTERN 
:SHOW THE USER WHAT HE SELECTED. 
; CONTINUE DYNAMIC SWITCHES. 
;CHECK TO SEE IF DELAY COUNT CHANGES 
;IF NOT, GO CLEAR VECTOR AREA 
;CALL_THE STRING INPUT ROUTINE 
;POINTER TO MESSAGE TO BE PRINTED 
;CALL_ THE OCTAL TO ASCII CONVERT ROUTINE 
;LOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sHIGHEST LEGITIMATE VALUE OF watts: RESPONSE 
;POINTER TO MAP LOCATION TO BE FILLED 
:MASK OF INVALID BITS FOR THIS PARAMETER 
;NUMBER OF PARAMETERS TO STORE 

;PREPARE TO CLEAR ie FLOATING 

;VECTOR AREA. 300-77 

;START PUTTING "eco - HALT"’ 


:IN VECTOR AREA. 


;POP POINTERS 


;ALL DONE ?? 
7B 


R IF NO. 


SEQ 0042 
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i ee ee 
(1) 0064624 012706 001120 .BEGIN: MOV MSTACK, SP ;SET UP STACK 
(1) 004630 106427 000340 MTPS #PR7 :LOCK OUT INTERRUPTS 
(1) 0046634 005737 000042 TST a42 31S PROGRAM UNDER MONITOR CONTROL 
(1) 004640 001015 BNE 2¢ :BR IF YES 
(1) 006642 032777 000004 174310 BIT #BIT2,aSWR ;CHECK FOR LOCK ON TEST 
(1) 006650 001406 BEQ 1$ ;BR IF NO LOCK DESIRED. 
(1) 006652 104402 010667 TYPE »MLOCK : TYPE LOCK SELECTED. 
(1) 004656 012737 000240 005140 MOV ANOP,TTST ;ADJUST SCOPE ROUTINE. 
(1) 004664 000403 BR 2$ ; CONTINUE ALONG. 
(1) 006666 013737 005372 005140 1$: MOV BRwW,TTST s;PREPARE NORMAL SCOPE ROUTINE 
(1) 006674 012737 011542 001126 28: MOV ACYCLE,$LPADR :START AT “'CYCLE’’ FIND WHICK DEVICE TO TEST 
(1) 006702 104402 010560 TYPE ,MR : TYPE ‘‘RUNNING'' 
(1) 006706 000177 174214 JMP a$LPADR sSTART TESTING 
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(2) 005072 000001 KCSR: 1 

(2) 005074 006 002 BYTE 6,2 
(2) 005076 002042 DZCSR 

(2) 005100 000001 XVEC: 1 

(2) 005102 003 002 BYTE 3.2 
(2) 005106 002072 DZRIV | 


8617 sEND OF PASS 
| (2) s; TYPE NAME OF TEST 
ae [UPDATE PASS COUNT 
(2) sCHECK FOR EXIT TO ACT=17 
| (2) “RESTART TEST 
i & SBTTL END OF PASS ROUTINE 
| + ¢ FF RAAAAARAAAAARAAAAAARARAAARAARAARARAAAAAAAAAARAARAHAAAAARARAAAAAAAES 
(3) >* INCREMENT THE PASS NUMBER ($PASS) 
(3) >*]F THERES A MONITOR GO TO IT 
. :*]F THERE ISN'T JUMP TO CYCLE 
(3) 004712 SEOP: 
(S> 004712 SCOPE 
(5) 0064714 005037 001136 CLR SERRPC :; CLEAR LAST ERROR PC 
(S) 004720 105037 001123 CLRB SERFLG >;CLEAR ERROR FLAG 
(SS). 006724 104402 010535 T YPF -MEPASS TYPE END PASS 
(5) 004730 104402 010716 TYPE »~MCSRX ; TYPE CSR 
(5S) 004734 104412 005072 CNVRT -XCSR :SHOW IT 
(S) 004740 104402 010724 TYPE »MVECX : TYPE VECTOR 
(5) 9064744 104412 005100 CNVRT -XVEC sSHOW IT 
(5S) 004750 005237 001242 INC SPASS sRAISE PASS COUNT 
(S) 004754 104402 010732 TYPE »MPASSX s; TYPE PASSES 
(5) 004760 104412 005106 CNVRT ,XPASS :SHOW IT 
(S) 004764 005337 001242 DEC $SPASS s;RESTORE PASS COUNT 
(S) 004770 104402 010743 TYPE »~MERRX phe ERRORS 
(S) 0064774 104412 005114 CNVRT _XERR > SHOW IT 
(S) 005000 105337 001411 DECB SAVNUM > ARE ALL DEVICES TESTED? 
(5) 005004 001030 BNE $DOAGN ;BR IF NO. 
(5) 5006 113737 001410 001411 MOVB DZNUM, SAVNUM sRESTORE THE COUNT 
(3) 005014 005037 0017226 CLR May *:ZER O THE NUMBER OF ITERATIONS 
(3) 005020 005237 001242 INC $PA >: INCREMENT THE PASS NUMBER 
(3) 005024 042737 100000 001242 BIC #100000, SPASS ::DON'T ALLOW A NEG. NUMBER 
(3) 005032 005327 DEC (PC) 3;LOOP? 
(3) 005034 000001 S$EOPCT: .WORD 1 
(3) 005036 003013 BGT SDOAGN YES 
(3) 005040 012737 MOV (PC)+,a(PC)+ : sRESTORE COUNTER 
(3) 005042 000001 SENDCT: 1 
(3) 005044 005034 SEOPCT 
(3) 005046 013700 000042 $GET42: MOV a42,R0 ::GET MONITOR ADDRESS 
(3) 005052 001405 BEQ S$DOAGN : ;BRANCH IF NO MONITOR 
(3) 005054 000005 RESET >: CLEAR THE WORLD 
(3) 005C56 004710 SENDAD: JSR PC, (RO) ::;GO TO MONITOR 
(3) 005060 000240 NOP >; SAVE ROOM 
(3) 005062 000240 NOP > FOR 
(3) 005064 000240 NOP 77ACT11 
(3) 005066 $DOAGN: 
(3) 005066 000137 JMP a(PC)+¢ > RETURN 
(3) 005070 011542 SRINAD: .WORD CYCLE 
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000001 


Q06 
001242 
000001 


006 
001132 


000416 


005237 


002 


002 


013050 


174016 
174012 


174002 
040000 


001242 
001124 
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000021 


177776 
173764 


000004 


173700 
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END OF PASS ROUTINE 
KPASS: 1 
BYTE 
S$PASS 
KERR: 1 
-BYTE 
SERTTL 


. SBTTL 


SCOPE HANDLER ROUTINE 


ae STREET AAARARTHRERARRARARARERTERAARARAARKRARRERARARARERERHRAREEHRKREARTAREEED 


:*THIS ROUTINE 
;*AND LOAD THE 


CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
TEST NUMBER(S$TSTNM) INTO THE DISPLAY REG. (DISPLAY</7:0>) 


;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3 *SW14=7 
3*SWwll=1 
>*CALL 
;@ SCOPE 
$SCOPE: 
-SCOPE: JSR 
CLR 
CMP 
BEQ 
TTST: BR 
TSTB 
BPL 
CMPB 
BEQ 
MOV 
1$: BIT 
BNE 
:MHAHASTART OF 
$XTSTR: BR 
MOV 
MOV 
TST 
MOV 
BR 
5$: CMP 
MOV 
BR 
6%$:;:MAAAAEND OF 
2$: TSTB 
BEQ 
4$: CLRB 
CLR 
3$: BIT 
BNE 
TST 
BEQ 
INC 





LOOP ON TEST 
INHIBIT ITERATIONS 

:;SCOPE=I0T 
PC,SERV.G sFIND OUT IF <*G> WAS HIT 
SERRPC >;CLEAR LAST ERROR PC. 
#TST1+2, (SP) 31S THIS THE SCOPE AT BEGINNING OF TST1? 
$XTSTR > IF SO, DON'T LOOP ON I] 
1$ = GOTO i$ (IF LOCK su02= 1; THIS LOC =240) 
a$TKS = KE YBOARD DONE ? 
SOVER ;BR IF NO. (LOCK: HIT ae TO GOTO NEXT TEST) 
a$TkKB,4$X0N >1S CHAR A RANDOM XON ? 3 :DSH 
SOVER “BR IF YES : DSH 
a$TKB,-2(SP) | 
#RIT14, aSwR : «LOOP ON PRESENT TEST? 


SOVER “YES IF SW14=1 
CODE FOR THE XOR TESTERMMHAM 

x ::]F RUNNING ON THE ‘‘XOR'’ TESTER CHANGE 

>: THIS INSTRUCTION TO A ‘‘NOP’’ (NOP=240) 

QAERRVEC.-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
#5$, AAERRVEC :iSET FOR TIMEOU 

a4#177060 =: TIME OUT ON X NOR? 

(SP)+, @MERRVEC ::RESTORE THE ERROR VECTOR 

$SVLAD -:GO TO THE NEXT TEST 

(SP)+, (SP) + >=CLEAR THE STACK AFTER A TIME OUT 
(SP)+,@MERRVEC ;;RESTORE THE ERROR VECTOR 

$OVER LOOP ON THE PRESENT TEST 

CODE FOR THE MOR ieSTERMMAME 

SERFL LG HAS AN ERROR OCCURRED? 


:BR IF NO 
ZERO THE ERROR FLAG 


SERFLG 

$STIMES 7:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
> lie acum ery prone Sane 

$PASS se lF FIRST PASS OF PROGRAM 

1$ INHIBIT ITERATIONS 

$SICNT >: INCREMENT ITERATION COUNT 


-_———_— Se — er weno ee - —- oo — -_-- — — 


SEQ 0045 
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023737 
00 


032777 
001403 
062716 
000002 


105737 
100002 
000000 
0004 30 
019046 
017600 
122737 


001000 
001362 
001362 


010000 
000002 


001177 


000002 
000001 


;*THE ROUTINE WILL INSERT A NUMBER OF 
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STIMES,SICNT 
SOVER 


#1,$I1CNT 
eal acca 


STNM 
STSTNM,STESTN 
(SP) ,$LPADR 
$TSTNM,@DISPLAY 
SLPADR, (SP) 
MNTFLG 
MODE 


4$ 
AMAINT ,MNTFLG 


SEQ 0046 


4 ag THE NUMBER OF ITERATIONS MADE 
;BR IF MORE ITERATION REQUIRED 
: :REINITIAL IE THE ITERATION COUNTER 
;>;SET NUMBER OF ITERATIONS TO DO 
‘COUNT TEST NUMBERS 
:SET TEST NUMBER IN APT MAILBOX 
“ TSAVE SCOPE LOOP ADDRESS 
3:DISPLAY TEST NUMBER 
3;FUDGE RETURN ADDRESS 
;CLEAR THE MAINTENANCE AF SETTER AFTER EACH TEST 
sHAS THE MODE BEEN CHANGED 
;1F NOT INTERNAL , GO DO A TEST 
;I1F INTERNAL MODE NOW, SET THE MAINTENANCE BIT 
;GO DO THE TEST 


33MAX. NUMBER OF ITERATIONS 


;CHECK FOR FREEZE ON CURRENT DATA 


#SWO9,aSWR 
1$ 

LOCK 

1$ 


LOCK, (SP) 


#SW12,aSWR 
1$ 
#2, (SP) 


TYPE ROUTINE 


STEARATE RAAAARARERARAAAERRAARRAAKEAAARAEAAARAARAAARAAEAAAAEAE ERS 


;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


21S SWO9=1(SET)? 
:BR IF NOT SET 

:I1S THER A TIGHT LOOP SPECIFIED? 
; IF NO, RETURN 

IF YES, = THE ADDRESS IN LOCK. 
:GO BACK 


; INHIBIT ALL PRINTOUT?? 
;I1F NOT, GO TYPE 

:SKIP OVER MESSAGE POINTER 

:RETURN TO WHERE PROCEDURE WAS INVOKED 


NULL CHARACTERS AFTER A LINE FEED 


$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


$FILLS CONTAINS 
$FILLC CONTAINS 


301) USING A TRAP INSTRUCTION 


»ME SADR 


$TPFLG 
1$ 


3$ 
RO,-(SP) 
ae (SF 


24-JUN-81 
SCOPE HANDLER ROUTINE 
001124 CMP 
BGE 
001124 1$: MOV 
001226 MOV 
$SVLAD: INCB 
001240 MOVB 
MOV 
173616 S$OVER: MOV 
MOV 
3$: CLRB 
TST 
BNE 
001417 MOVB 
4$: RT] 
BRW: 406 
SMXCNT: 5 
173554 .SCOP1: BIT 
BEQ 
TST 
BEQ 
MOV 
1$: RT] 
173530 .TYPE: BIT 
REQ 
ADD 
RT] 
1$: 
. SBTTL 
> *NOTE1: 
 *NOTE2: 
; *NOTES: 
* eCALL 
TYPE 
“SOR 
+. TYPE 
;¢ ME SADR 
;* 
$TYPE TSTB 
BPL 
HAL T 
BR 
1$: MOV 
MOV 
007254 CMPB 





#APTENV, SENV 


THE NUMBER OF FILLER CHARACTERS REQUIRED. 
THE CHARACTER TO FILL AFTER. 


:3MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


s333 ye By TERMINAL ? 
; HALT HERE IF NO TERMINAL 
AVE 


SAVE RO 
SIGET ADDRESS OF ASCIZ STRING 
; RUNNING IN APT MODE 


—CZDZA=-G0 
CZ2DZAG.P11 


105777 
100375 
117716 
042716 
122716 
001 366 


MACY11 30A(1052) 
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09: 


000100 


005570 
006012 


000040 


000002 
000011 
000200 


006000 


005652 
001176 


001174 
000001 


005652 
006000 


000040 
005652 
000007 


173306 


173302 
177600 
000023 


173262 
173256 


177600 
000021 


24=JUN=81 


001255 


001255 


006000 


TYPE ROUTINE 


61$: 
62$: 


2$: 
60$: 
3$: 
4$: 


5$: 
6$: 


7$: 


;HORIZONTAL TAB 


S$: 
9$: 


$TYPEC: 


101$: 
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62$ 
#APTSPOOL , SENVM 
62$ 


RO,61$ 
ne 


#APTCSUP ,SENVM 
O$ 


6 

(RO) +,=(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 

8$ 

ACRLF, (SP) 
S$ 


(SP) + 


—_—" 


P° $STYPEC 
SFILLC, (SP) + 


2$ 
$NULL ,- (SP) 
1 (SP) 


6$ 
PC,STYPEC 
$CHARCNT 
7$ 


PROCESSOR 


#’ ,(SP) 
PC .$TYPEC 
: soe 


a$TKR,-(SP) 
#177600, (SP) 
ASXOFF, (SP) 
102$ 


a$TkKB. 
7177600. (SP) 
#$XON, (SP) 
101$ 


:NO,GO CHECK FOR APT CONSOLE 
: SPOOL MESSAGE TU APT 

:NO,GO CHECK FOR CONSOLE 
i: SETUP MESSAGE ADDRESS FOR APT 

;SPOOL MESSAGE TO APT 

: :MESSAGE ADDRESS 
APT CONSOLE SUPPRESSED 
:;YES,SKIP TYPE OUT 
;;PUSH CHARACTER TO BE TYPED ONTO STACK 
:;BR IF IT ISN'T THE TERMINATOR 
3: 1F TERMINATOR POP IT OFF THE STACK 
: ;RESTORE RO 
¢ sADJUST RETURN PC 

TURN 


> BRANCH IF <HT> 
: ;BRANCH IF NOT <CRLF> 


:;POP <CR><LF> EQUIV 
;; TYPE A CR AND LF 


3:CLEAR CHARACTER COUNT 
3:GET NEXT CHARACTER 
3:GO TYPE THIS CHARACTER 
3318S IT TIME FOR FILLER CHARS.? 
:31F NO GO GET NEXT CHAR. 
3:GET # OF FILLER CHARS. NEEDED 
;zAND THE NULL CHAR. 
:¢DOES A NULL NEED TO BE TYPED? 
:BR IF NO--GO POP THE NULL OFF OF STACK 
: 760 TYPE A NULL 
;D0 NOT COUNT AS A COUNT 
> LOOP 


> ;REPLACE TAB WITH SPACE 
>: TYPE A SPACE 
: ;BRANCH IF NOT AT 

: TAB STOP 
> = POP SPACE OFF STACK 
>:GET NEXT CHARACTER 


>; CHAR IN KYBD BUFFER? :MJDOO1 
:¢BR IF NOT ;MJDOO1 
:GET CHAR :MJDO01 

= :STRIP exTneeus BITS >MJDOO1 
;zWAS CHAR XOFF :MJDO01 
;;BR IF NOT 7MJDOO1 
:MJDO01 

::;WAIT FOR CHAR MJDOO1 
:MJD001 

:;GET CHAR :MJDO001 
scSTRIP IT 7MJD001 
g suAS ]T XON? :Mj)D001 
;BR IF NOT >MJD0Q01 


SEQ 0047 
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005726 
105777 


112737 
112737 
000403 
112737 


105737 
001416 
005737 
001413 


one ee ee =e ee oe 


173240 
000002 
sont 
006000 
060012 


000001 
000001 
000001 


006246 
000001 
000100 
000004 
000002 
001234 
001250 


001250 


001252 
000004 


000004 
000002 
177776 
005440 
006250 
001254 


_ 


24=JUN-81 
TYPE ROUTINE 


000021 


173222 
000002 


000002 


006250 
006246 


006250 


001254 
001255 


000004 


001234 


006160 
000004 


102$: 


10$: 


1$: 


INCB 
$SCHARCNT : . WORD 


S$TYPEX: RTS 
.SBTTL APT COMMUNICATIONS ROUTINE 


SL AERA RAARAARAERERRARAERAARAERRAAAERRERAAARARAKAEAARAAARAKARREAR ga2eaeene 


SATY1: 
SATY3: 


SATYSG: 
$ATYC: 


1$: 


2s: 
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(SP) + 
a$TPS 


10$ 

2 (SP) ,ASXON 
$TYPEX 
2(SP) ,a$TPB 
— 


$SCHARCNT 
STYPEX 
ALF ,2(SP) 
$STYPEX 
(PC) + 

0 

PC 


#1,$FFLG 
RO,-(SP) 
R1,-(SP) 
SMFLG 

5$ 
oo 
ers 
a4(SP),RO 
#2,4(SP) 
SMSGTYPE 

1$ 

RO, $MSGAD 
(RO) + 

2$ 

$SMSGAD , RO 

RO 


RO, $MSGLGT 
#4, SMSGTYPE 


a4 (SP) .4$ 
#2,4(SP) 
177776, -(SP) 
PC. $TYPE 


SFFLG 
12$ 
SENV 
12$ 


s;MJDO01 
siF IX STACK ;MJDO0O1 

sMsD001 
s;;WAIT UNTIL PRINTER IS READY 

:;MJDOO1 
eT ge: fe A RANDOM XON? ;RANOO1 


3;LOAD CHAR 10 BE TYPED INTO DATA REG. 
3731S CHARACTER A CARRIAGE RETURN? 

; ;BRANCH IF NO 

PS aaa CHARACTER COUNT 


:;1S CHARACTER A LINE FEED? 
7 BRANCH IF YES 

>: COUNT THE CHARACTER 

7; CHARACTER COUNT STORAGE 


3;TO REPORT FATAL ERROR 
32:TO TYPE A MESSAGE 


3;TO ONLY REPORT FATAL ERROR 


:zPUSH RO ON STACK 
:;PUSH R1 ON STACK 
; SHOULD hg A MESSAGE? 


:1F NOT 
: OPERATING UNDER APT? 
NOT: BR 
;; SHOULD SPOOL MESSAGES? 
NOT: BR 


= :GET MESSAGE ADDR. 
; ;BUMP RETURN ADDR. 
33 SEE IF DONE W/ LAST XMISSION? 
sz1IF NOT: WAIT 
;;PUT ADDR IN MAILBOX 
3zF IND END OF MESSAGE 


3;SUB START OF MESSAGE 

;3GET MESSAGE LNGTH IN WORDS 
3:PUT LENGTH IN MAILBOX 
3;TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 
= PUSH 199776 ON STACK 
«CALL TYPE MACRO 


: SHOULD REPORT FATAL ERROR? 
1 RUNNING UNDER APT? 
: IF NOT: BR 


eee ae ea ee eee 


SEQ 0048 


Pare ea ee ey em ee ee ee | ee a eae le —_— — - -_- = <= 
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| (2) 006176 «005737 001234 11$: TST SMSGTYPE ; :F INISHED LAST MESSAGE ? 

| (2) 006202 001375 BNE 11$ NOT: WAIT 
(2) 006204 017637 000004 001236 MOV QG(SP).$FATAL  =:GET ERROR 4 
(2) 006212 062766 000002 000004 ADD #2.4(SP) =BUMP RETURN ADDR. 
(2) 006220 005237 001234 INC $MSGTYPE «= TELL APT TO TAKE ERROR 
(2) 006224 105037 006250 12$: CLRB  $FFLG ° CLEAR FATAL FLAG 
(2) 006230 105037 006247 CLRB —s- SLFG *= CLEAR LOG FLAG 
(2) 006234 105037 006246 CLRB = $MFLLG ;CLEAR MESSAGE FLAG 
(4) 006240 012601 MOV (SP) +,R1 :POP STACK INTO R1 
(4) 006242 012600 MOV (SP)+-RO ;:POP STACK INTO RO 
(2) 006244 000207 RTS PC : RETURN 
(2) 006246 000 $MFLG: .BYTE ; [MESSG. FLAG 
(2) 006247 000 $LFLG: .BYTE 0 “LOG FLAG 
(2) 006250 000 $FFLG: .BYTE 0 “FATAL FLAG 
(3) 006252 EVEN 
(2) 000200 APTSIZE=200 
(2) 000001 APTENV=001 
(3) 000100 APTSPOOL =100 
(2) 000040 APT CSUP=040 
D :STRING INPUT ROUTINE 
(1) 
(1) 006252 010346 INSTR: MOV R3,-(SP) :SAVE R3 ON STACK 
(1) 006254 010446 MOV RG. =(SP) “SAVE R4 ON STACK 
(1) 006256 017637 000004 006274 MOV a4 (SP) , <MSG “GET THE ADDRESS OF THE MESSAGE TO BE PRINTED 
(1) 006264 062766 000002 000004 ADD #2.4(SP) “POINT TO INSTRUCTION AFTER ADDRESS POINTER 
(1) 006272 104402 _INST1: TYPE “PRINT THE MESSAGE 
(1) 006274 000000 "MSG: 0 “MESSAGE IS POINTED TO FROM HERE 
(1) 006276 012704 011272 MOV # INBUF ,R4 “POINT R4 TO THE INPUT BUFFER 
(1) 006302 012703 000007 MOV #7 .R3 “SET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED 
(1) 006306 105777 172652 1$: TSTB. = aSTKS “HAS A CHARACTER BEEN RECEIVED? 
(1) 006312 100375 BPL 1$ “IF NO. KEEP WAITING FOR IT 
(1) 006314 117714 172646 MOVB = a$TKB, (R4) “IF YES, SAVE IT IN THE INPUT BUFFER 
(1) 006320 142714 000200 BICB #209, (R4) “KEEP ONLY THE 7-BIT ASCII INFORMATION 
(1) 006324 122714 000023 CMPB so WS OFF, (R4) “1S IT A XOFF? : : DSH=BHL 
(1) 006330 001014 BNE 83$ “BR IF NOT ::DSH 
(1) 006332 105777 172626 101$: TSTB  astkS “WAIT FOR A CHARACTER : = DSH=BHL 
(1) 006336 100375 BPL 101$ : : DSH-BHL 
(1) 006340 117714 172622 MOVB a$TKB. (R4) :GET CHARACTER : * DSH-BHL 
(1) 006344 142714 000200 BICB #200, (R4) “STRIP DOWN CHARACTER * : DSH-BHL 
(1) 006350 122714 000021 CMPB so #$XON, (R4) “WAIT FOR A XON? : : DSH=BHL 
(1) 006254 001366 BNE 101$ “GET NEXT CHAR IF NOT : : DSH=BHL 
(1) 006356 105724 TSTB —- (RG) + “POP STACK : = DSH 
(1) 006360 000752 BR 1$ “WAIT FOR A CHAR : = DSH 
(1) 006362 122714 000021 83$:  CMPB _—s #$XON, (R4) "1S IT A RANDOM XON : : DSH-BHL 
(1) 006366 001002 BNE 102$ “BR IF NO : : DSH-BHL 
(1) 006370 105724 TSIB —- (R4) + “ELSE, POP STACK : : DSH-BHL 
(1) 006372 000745 | | BR 1$ “GO GET NEXT CHAR * : DSH=BHL 
(1) 006374 122724 000015 102$: CMPB  4#15.(R4)+ “IS IT <CR> ? 
(1) 006400 001417 BEQ INSTR2 “IF SO. TERMINATE THE INPUT SEQUENCE 
(1) 006402 105777 172562 2$: TSTB. ~—s- aS TPS SIF NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT 
(1) 006406 100375 BPL 2$ “IF WE CAN'T, WAIT UNTIL WE CAN 
(1) 006410 017777 172552 172554 MOV a$TKB,a$TPB “ECHO THE CHARACTER BACK 
(1) 006416 005303 DEC R3 “REDUCE THE NUMBER OF CHARACTERS RECEIVED 
(1) 006420 001332 BNE 1$ “IF WE DON'T HAVE 7. GO GET SOME MORE 
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(1) 006422 012604 MOV (SP)+,R4 ;IF WE HAVE 7, RESTORE R4 
(1) 006424 012603 MOV (SP)+,R3 :RESTORE R3 
(1) 006426 010346 -INSTE: MOV R3,-(SP) ;SAVE R3 ON THE STACK 
(1) 006430 010446 MOV R4,-(SP) :SAVE_R4 ON THE STACK 
(1) 006432 104402 001250 TYPE , $QUES :PRINT A QUESTION MARK... WHAT'S GOING ON? 
(1) 006436 000715 BR - INST1 ;GO PRINT THE MESSAGE AGAIN 
(1) 006440 012604 INSTR2: MOV (SP)+,R4 sRESTORE R4 
(1) 006442 012603 MOV (SP)+,R5 RESTORE R35 
+3 006444 000002 RTI sRETURN TO THE MAIN PROCEDURE 
at ;CONVERT ASCII STRING TO OCTAL 
(1) - 
(1) 006446 010546 -PARAM: MOV R5,~(SP) ;SAVE R5 ON THE STACK 
(1) 006450 010446 MOV R4,-(SP) ;SAVE R4& ON THE STACK 
(1) 006452 016605 000004 MOV 4(SP) ,R5 :GET THE SETUP INFORMATION POINTER 
(1) 006456 012537 006636 MOV (R5)+,LOLIM sSET THE LOW LIMIT FOR THE INPUT 
(1) 006462 012537 006640 MOV (R5)+,HILIM ;SET THE HIGH LIMIT FOR THE INPUT 
(1) 006466 012537 006642 MOV (R5)+,DEVADR ;SAVE THE ADDRESS WHERE THE RESULT WILL BE STORED 
(1) 006472 112537 006644 MOVB (R5)+,LOBITS ;GET THE MASK OF THE INCORRECT BITS 
(1) 006476 112557 006645 MOVB (R5)+, ADRCNT ;GET THE COUNT OF ITEMS TO BE STORED 
(1) 006502 010566 000004 MOV R5,4(SP) sPOINT TO WHERE MAIN LINE PROGRAM WILL RESUME 
(1) 006506 005005 PARAM1: CLR R5 s INITIALIZE THE ASCII TO OCTAL RESULT WORD 
(1) 006510 012704 011272 MOV # INBUF ,R4 :POINT TO THE INPUT BUFFER 
(1) 006514 122714 000015 CMPB #15,(R4) :1S THIS CHARACTER A CARRIAGE RETURN? 
(1) 006520 001420 BEQ PARERR ;IF SO, PRINT THE MESSAGE AGAIN 
(1) 006522 121427 000060 1$: CMPB (R4) ,460 ;I1S THIS CHARACTER BELOW THE NUMERIC RANGE? 
(1) 006526 002415 BLT PARERR ;I1F SO, GO PRINT THE MESSAGE AGAIN 
(1) 006530 121427 000067 CMPB (R4) ,A67 ;I1S THIS CHARACTER ABOVE THE NUMERIC RANGE? 
(1) 006534 003012 BGT PARERR :IF SO, GO PRINT THE MESSAGE AGAIN 
(1) 006536 142714 000060 BICB #60, (R4) ; ISOLATE THE NUMBER THE CHARACTER REPRESENTS 
(1) 006542 152405 BISB (R4)+,R5 ;CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 
(1) 006544 122714 000015 CMPB #15,(R4) ;1S THE NEXT CHARACTER A CARRIAGE RETURN? 
(1) 006550 001406 BEQ LIMITS ;IF SO, GO SEE IF NUMBER IS WITHIN LIMITS 
(1) 006552 006305 ASL R5 ;CLEAR BIT POSITION 0, MOVE EXISTING STRING TO LEFT 
(1) 006554 006305 ASL R5 ;CLEAR POSITION 1, MOVE STRING TO LEFT AGAIN 
(1) 006556 006305 ASL R5 sMOVE THE STRING ONE MORE TIME TO MAKE ROOM FOR 
(1) ;NEXT THREE BITS 
(1) 006560 000760 BR 1$ :GO GET THE NEXT CHARACTER 
(1) 606562 104404 PARERR: INSTER ; THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN 
MA 006564 000750 BR PARAM 1 ;TRY GETTING THE PARAMETERS AGAIN 
we :TEST TO SEE IF NUMBER IS WITHIN LIMITS 
(1) 
(1) 006566 020537 006640 LIMITS: CMP R5,HILIM ;DOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
(1) 006572 101573 BHI PARERR :IF YES, GO PRINT THE MESSAGE AGAIN 
(1) 006574 020537 006636 © CMP R5,LOLIM ;I1S THE RESULT LOWER THAN ALLOWED? 
(1) 006600 103770 BLO PARERR :IF YES, GO PRINT THE MESSAGE AGAIN 
(1) 006602 133705 006644 BITB LOBITS,RS :ARE ANY INCORRECT BITS SET IN THE RESULT? 
af 006606 001565 . BNE PARERR :IF SO, GO PRINT THE MESSAGE AGAIN 
it ;STORE NUMBER AT SPECIFIED ADDRESS 
(1) 006610 013704 006642 : MOV DEVADR ,R4 sPOINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
(1) 006614 010524 1$: MOV R5,(R4)+ ;STORE THE RESULT 
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016637 


010537 


013701 


000002 
006645 


000004 


001231 


000012 
000002 
007114 


007116 
177770 


ee ee 


SEQ 0051 


REDUCE CO THE NEXT DAT 


UM 
REDUCE es OF STORED RESULTS. 


:IF NOT, 
: RESTORE 
REST 


R4 


IS IT EXCEEDED? 
STORE THE NEXT DATUM 


ORE R5 
;RETURN TO THE MAIN PROGRAM 


;LOWEST ACCEPTABLE VALUE 

sHIGHEST ACCEPTABLE 

;LOCATION WHERE RESULT WILL BE STORED 
; INCORRECT BITS MASK 

;COUNT OF ITEMS TO BE STORED 


:SAVE PC OF TEST THAT FAILED AND RO-R5 


sSAVE R7 (PC) 


: LEAVE. 


;RESTORE 


> LEAVE 


;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


sadteoaal” > 09:46 PAGE 82-31 
T COMMUNICATIONS ROUTINE 
ADD #2,R5 
DECB ADRCNT 
BNE 1$ 
MOV (SP)+,R4 
MOV (SP)+,R5 
RT] 
LOLIM 0 
HILIM: OQ 
DEVADR: 0 
, LOBITS: BYTE 0 
ADRCNT: .BYTE 0 
001402 .SAVO5: MOV 4(SP) ,SAVPC 
:SAVE RO-R5 
SVO5: MOV R5,$REG5 
MOV R4,$REG4 
MOV R3,$REG35 
MOV R2,$REG2 
MOV R1,$REG1 
MOV RO,$REGO 
RT] 
sRESTORE RO-R5 
.RESOS: MOV $REGO,RO 
MOV SREG1,R1 
MOV $REG2,R2 
MOV $SREG3,R 
MOV SREG4 RS 
MOV $REGS,RS 
RTI 
-CONVR: TYPE ,SCRLF 
.CNVRT: MOV RO,-(SP) 
MOV R1,~(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
MOV @12(SP),R1 
000012 ADD #2,12(SP) 
MOV (Ri)+, WRDCNT 
1$: MOVB (R1)+,R5 
MOVB (R1)+, “RO 
MOV a(R1)+, R4 
MOVB RS, CHRCNT 
3$: MOV R4,R3 
BIC #*C<7>,R35 


R5 
“PLACE THE ADDRESS OF THE ARGUMENTS IN R1 
:POINT TO WHERE 


MAIN PROGRAM WILL RESUME 


:GET NUMBER OF WORDS TO BE PRINTED 


;GET THE NUMBER OF CHARACTERS TO BE PRINTED 


;GET THE NUMBER OF SPACES TO PRINT 
;COPY THE WORD TO BE CONVERTED 
:COPY THE rege hy COUNT 


:COPY THE ARGUMENT WORD AGAIN 
: ISOLATE THREE BITS TO BE TREATED AS A CHARACTER 


ee ee _—— 


- ae ee ee ee ———— ee - oe eee es - - -— . 
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(1) 007014 062702 000060 ADD #060,R3 sMAKE AN ASCII CHARACTER OUT OF THEM 

5 (1) 007020 110346 MOVB R3,-(SP) sSAVE THAT CHARACTER 

e(1) 007022 006004 ROR R4 =MOVE THE NEXT THREE BITS INTO PLACE 

(1) 007024 006204 ASR R4 -MOVE THEM AGAIN 
(1) 007026 006204 ASR R4 * AND FINALLY A THIRD TIME 
+ 007030 005305 DEC R5 ate CHARACTER COUNT.ARE ALL CHARACTERS 
( Z Ps 
(1) 007032 001365 BNE 3$ ;I1F NO, GO BUILD THE NEXT ONE. 
(1) 007034 012703 011376 MOV AMDATA,R3 s;NOW POINT TO WHERE NUMBER WILL BE PRINTED FROM 
(1) 007040 112623 4$: MOVB (SP) +, (R3)+ s;STORE THE CHARACTER, STARTING WITH THE MOST 
(1) 007042 105337 007116 DECB CHRCNT ;REDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED? 
(1) 007046 001374 BNE 4$ : IF NO, GO TRANSFER ANOTHER 
(1) 007050 105700 TSTB RO + ARE ANY SPACES TO BE PRINTED? 
(1) 007052 001404 BEQ 6$ : IF NO, DON'T SET UP ANY 
(1) 007054 112723 000040 5$: MOVB #040, (R3)+ “ADD A SPACE TO THE OUTPUT BUFFER 
(1) 007060 105300 DECB RO sREDUCE THE COUNT. SHOULD WE PRINT MORE? 
(1) 007062 001374 BNE 5$ “IF YES, GO ADD ANOTHER SPACE 
(1) 007064 105013 6$: CLRB (R3) ; TERMINATE THE OUTPUT BUFFER WITH A ZERO 
(1) 007066 104402 011376 TYPE »MDATA sPRINT THE STRING WE JUST BUILT 
(1) 0C7072 005337 007114 DEC WRDCNT sREDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT? 
(1) 007076 001336 BNE 1$ :IF YES, GO CONVERT THEM 
(1) 007100 012605 MOV (SP)+,R5 sRESTORE RS5 
(1) 007102 012604 MOV (SP)+,R4 sRESTORE R4 
(1) 007104 012603 MOV (SP)+,R3 sRESTORE R3 
(1) 007106 012601 MOV (SP)+,R1 sRESTORE R1 
(1) 007110 012600 MOV (SP)+,RO sRESTORE RO 
(1) 007112 000002 RTI sRETURN TO THE MAIN PROGRAM 
(1) 007114 000000 WRDCNT: 0 
(1) 007116 000 CHRCNT: .BYTE :NUMBER OF CHARACTERS TO PRINT 
H. 007117 000 SPACNT: .BYTE 0 >NUMBER OF SPACES TO PRINT 
+. 007120 000000 BINWRD: 0 
(1) 
(1) : TRAP DISPATCH SERVICE 
(1) s;ARGUMENT OF TRAP IS EXTRACTED 
(1) :AND USED AS OFFSET TO OBTAIN POINTER 
de ;TO SELECTED SUBROUTINE 
(1) 007122 010046 . TRPSR: MOV RO,-(SP) :SAVE RO. USE RO 7102 FIND TRAP ROUTINE 
(1) 007124 016600 000002 MOV 2(SP),RO GET ns ADDRESS 
(1) 007130 005740 TST -(RQ) GET TRAP 
(1) 007132 111000 MOVB (RO) RO :GET RIGHT BYTE OF TRAP(TRAP OFFSET) 
(1) 007134 006300 ASL RO =POSITION OFFSET FOR TABLE INDEXING 
(1) 007136 016000 002002 MOV . TRPTAB(RO),RO ;PLACE INDEXED ADDRESS OF TABLE IN RO 
1% 007142 000200 RTS RO : TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 
(1) :DEVICE CLEAR ROUTINE 
3h ISSUE A DEVICE CLEAR 
(1) 007144 -DEVICE.CLR: 
(1) 007144 0652777 000020 172670 BIS #DCLR,aDZCSR ;SET DCLR 
(1) 007152 032777 Q00020 172662 1$: BIT #DCLR,aDZCSR sDID IT CLEAR? 
(1) 007160 001374 8NE 1$ ;BR IF NO 
44 007162 000002 RT] SEXIT ROUTINE 
( 
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§ sp :ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 
(1) SSS 8888S 8989989889888 SS8SSSSSSSSSSSSSSSO 
(7) 007164 106413 .DCLASM:DEVICE.CLR : ISSUE A DEVICE CLEAR 
(1) 007166 153777 001417 172646 BISB  MNTFLG.a@DZ7(SR  :LOAD THE MAINTENANCE BIT IF IT IS I MODE 
) 007174 000002 RT] “RETURN TO CALLING ROUTINE 
(1) 007176 .DELAY: 
(1) 007176 010046 MOV RO,-(SP) : SAVE RO 
(1) 007200 013700 007214 MOV DLYCNT RO =SET COUNT 
(1) 007204 005300 1$: DEC RO “DELAY 
(1) 007206 001376 BNE 1$ : 
(1) 007210 012600 MOV (SP) +,RO “RESTORE RO 
(1) 007212 000002 RT] “LEAVE ROUTINE 
D 007214 000001 DLYCNT: .WORD 1 -PATCHABLE LOC FOR MORE TIME 
(1) 
D :ADVANCE TO NEXT TEST HANDLER 
(1) { Peo oooooeoooooeoooeooooosoes= 
(1) 
(1) 007216 013716 001360 .ADVANCE:MOV —sCNEXT,, (SP) =CRUNCH STACK WITH ADDRESS OF SCOPE CALL 
(1) 007222 005037 001362 CLR LOCK “RESET TIGHT LOOP ADDRESS 
) 007226 000002 RTI “CHECK TO SEE IF OLD TEST GETS REPEATED 
(1) 
() :ERROR HANDLER 
(1) 
(1) 007230 004737 007652 $ERROR: JSR PC, SERV.G ;FIND OUT IF <*G> WAS HIT 
(1) 007234 032777 010000 171716 BIT #SW12,aSWR “BELL ON ERROR? 
(1) 007242 0014 BEQ XBX “BR IF NO BELL 
(1) 007244 105777 171720 TSTB a$TPS -TTY READY. 
(1) 007250 100003 BPL “DON'T WAIT IF TTY NOT READY. 
(1) 007252 112777 000207 171712 MOVB 4207 a$TPB =PUSH A BELL AT THE TTY. 
(1) 007260 032777 020000 171672 XBX: BIT #SW13,aSWR “DELETE ERROR PRINT OUT? 
(1) 007266 001113 BNE HALTS -BR IF NO PRINT OUT WANTED. 
(1) 007270 021637 001136 CMP (SP) , SERRPC “WAS THIS ERROR FOUND LAST TIME? 
(1) 007274 001404 BEQ 1 “BR IF YES 
(1) 007276 011637 001136 MOV (SP) , SERRPC -RECORD BEING HERE 
(1) 007302 105037 001123 CLRB = $ERFLG =PREPARE HEADER 
(1) 007306 104407 1$: SAVOS >SAVE ALL PROC REGISTERS 
(1) 007310 011605 MOV (SP) RS -GET THE PC OF ERROR 
(1) 007312 162705 000002 SUB #2,R5 “GET ADDRESS OF TRAP CALL 
(1) 007316 011504 MOV (R5) ,R4 *GET ERROR INSTRUCTION 
(1) 007320 110437 001134 MOVB  R4.$ITEMB "COPY TEST NUMBER FOR APT HANDLING 
(1) 007224 006304 ASL R4 “MULT BY TWO 
(1) 007326 061504 ADD (RS) .R4 “DOUBLE IT 
(1) 007330 006304 ASL R4 *MULT AGAIN 
(1) 007332 042704 177001 BIC #177001,R4 *CLEAR JUNK 
(1) 007336 062704 027536 ADD #. ERRTAB,R4 -GET POINTER 
(1) 007342 012437 007466 MOV (R4)+,ERRMSG § :GET ERROR MESSAGE 
(1) 007346 012437 007500 MOV (R4)+.DATAHD  :GET DATA HEADRER 
(1) 007352 011437 007512 MOV (R4) ,DATABP =GET DATA TABLE 
(1) 007356 105737 001123 TSTB ~—- SERFLG “TYPE HEADER 
(1) 007362 001403 : BEQ TYPMSG -BR IF YES 
(1) 005737 007512 TST DATABP “DOES DATA TABLE EXIST? 
(1) 007370 001044 BNE TYPDAT “BR IF YES. 
) 007372 104402 001231 TYPMSG: TYPE “$CRLF > TYPE A CARRIAGE RETURN 


007376 104402 0012351 TYPE ,$CRLF :AND TYPE ANOTHER 
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(1) 007402 005737 001362 TST LOCK 

(1) 007406 001402 BEO 

(1) 007410 104402 010766 TYPE »MASTEK 

(1) 007414 104402 010754 1$: TYPE »MTSTN 

(1) 007420 104412 007644 CNVRT XTSTN ;SHOw IT 

(1) 007424 104402 0110463 TYPE ,MERRPC sTYPE PC. 

(1) 007430 104412 007636 CNVRT ~ERTABO :SHOw iT 

(1) 007434 104402 010716 TYPE »MCSRX 

(1) 007440 104412 005072 CNVRT XCSR 

(1) 007444 104402 001231 TYPE SCRLF sGIVE A CR/LF 

(1) 007450 112737 177777 001123 MOVA #-) ,SERFLG sNO MORE HEADER UNLESS NO DATA TABLE. 

(1) 007456 005737 007466 TST ERRMSG 71S THERE AN ERROR MESSAGE? 

(1) 007462 001402 BEQ wTBS.FM ;8R IF NO. 

(1) 007464 104402 TYPE ; TYPE 

(1) 007466 000000 ERRMSG: 0 5 ERROR MESSAGE 

(1) 007470 WTBS.FM: ; 

(1) 007470 005737 007500 TST DAT AHD :DATA HEADER? 

(1) 007474 001402 BE OQ TYPDAT :BR IF NO 

(1) 007476 104402 TYPE : TYPE 

(1) 0C7500 000000 DATAHD: 0 ; DATA HEADER 

(1) 007502 005737 007512 TYPDAT: TST DATABP ;DATA TABLE? 

(1) 001402 BEQ RESREG :BR IF NO. 

(1) 007510 104411 CONVRT ; SHOW 

(1) 007512 000000 DATABP: 0 : DATA TARLE 

(1) 007514 104410 RESREG: RESOS sRESTORE PROC REGISTERS 

(1) 007516 122737 000001 001254 HALTS: CMPB MAPTENV, SENV 1S APT RUNNING? 

(1) 007524 001007 BNE 2$ :;SKIP APT CALL IF NOT 

(1) 007526 113737 001134 007540 MOVB SITEMB,7$ :; COPY ERROR NUMBER 

(1) 007534 004737 006022 JSR PC .SATYS > CALL APT SERVICE 

(1) 007540 000000 7$: -WORD 0O sERROR NUMBER STUCK HERE 

(1) 007542 000777 8$: RR 8$ ;LOCK UP HERE 

(1) 007544 022737 005056 000042 2%: CMP #SENDAD , 2442 sCHECK TO SEE IF IN ACT-11 MODE 

(1) 007552 001403 BEQ 1$ :IF SO, HANDLE ACCORDINGLY 

(1) 007554 005777 171400 TST aSwR *HALT ON ERROR? 

(1) 007560 100004 BPL EXITER =BR IF NO HALT ON ERROR 

(1) 007562 016677 O000002 171372 18: MOV 2(SP) ,@DISPLAY ;SHOW ERROR PC IN DATA DISPLAY 

(1) 007570 000000 HAL T *HALT 

(1) 007572 005237 001132 EXITER: INC SERTTL ; UPDATE ERROR COUNT 

(1) 007576 032777 000400 171354 BIT #SWO08, aSWR :GOTO TOP OF TEST? 

(1) 007604 001007 BNE 1$ -BR IF YES 

(1) 007606 032777 002000 171344 BIT #5W10,aSWR ;GOTO NEXT TEST? 

(1) 007614 001407 BEQ 2$ “BR IF NO 

(1) 007616 013737 001360 001126 MOV NEXT, $LPADR ;SET FOR NEXT TEST 

(1) 007624 012706 001120 1$: MOV ASTACK,SP “RESET SP 

(1) 007630 000177 171272 JMP a$LPADR -GOTO SPECIFIED TEST 

(1) 007634 000002 2$: RT] > RETURN 

(1) 007636 000001 ERTABO: 1 

(1) 007640 006 002 -BYTE 6,2 

(1) 007642 001402 SAVPC 

(1) 007644 000001 XTSTN: 1 

(1) 007646 002 002 ANTE - Zea 

(1) 007650 001122 STSTNM 

(1) 007652 022737 177570 001160 SERV.G: CMP #177570, SWR :1S THE SWITCH REGISTER HARDWIRED? 

(1) 007660 001002 BNE 99$ “IF SO, IGNORE *G 

(1) 007662 000137 010270 JMP 6$ : DSH~BHL 

(1) 007666 017746 171274 99$: MOV a$TKB,-(SP) sOTHERWISE, GET THE LAST CHARACTER TYPED 
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| (1) 007672 042716 177600 BIC #177600, (SP) :STRIP CHAR : :DSH-BHL 
(1) 007676 122716 000023 CMPB MSXOFF , (SP) ;IS IT A XOFF ; ;DSH-BHL 
a 007702 001012 BNE 102$ ;BR IF NO : ;:DSH-BHL 
(1) 007704 105777 171254 101$: TSTB asTKS :WAIT FOR A CHAR : ;DSH-BHL 
<1) 007710 100375 BPL 101$ : ;DSH-BHL 
(1) 007712 117716 171250 MOVB a$TKB, (SP) :GET THE CHAR : ;DSH-BHL 
(1) 007716 042716 177600 BIC #177600, (SP) ;STRIP CHAR ; ;DSH-BHL 
(1) 007722 122716 000021 CMPB #S$XON, (SP) ;IS IT A XON ; ;DSH=-BHL 
a 007726 001366 BNE 101$ ;BR IF NO : :DSH=BHL 
(1) 007730 122716 000021 102$: CMPB #$XON, (SP) IS IT RANDOM XON ? 32DSH 
(1) 007734 001002 BNE 7$ :BR IF NOT 3:DSH 
(1) 007736 005726 TST (SP) + :POP STACK 3 DSH 
aa 007740 000553 KR 6$ : IGNORE XON CHAR 32DSH 
(1) 007742 122726 000007 7$: CMPB 47, (SP)+ sis Iv “Gr 
(1) 007746 001150 BNE 6$ “IF NOT, IGNORE INPUT 
(1) 007750 032777 004000 171206 BIT nt ag asTKS *RX BUSY? 
(1) 007756 001335 BNE SERV :BR IF YES 
(1) 007760 017737 171174 010312 MOV Sc UR. 308 :SAVE (SWR). 
(1) 007766 013777 010312 171164 18: MOV 90$, aSwR : 
(1) 007774 104402 010272 TYPE 89 ; 
(1) 010000 104412 010304 CNVRT ,88$ ; 
(1) 010004 104402 010314 TYPE ,91$ : 
(1) 010010 105777 171150 $$: TSTB a$TKS :WAIT FOR DONE. 
(1) 010014 100375 BPL 74 
(1) 010016 017746 171144 MOV @$TKB,-(SP) 
(1) 010022 042716 177600 BIC #177600, (SP) “STRIP CHAR 3: DSH-BHL 
(1) 010026 122716 000023 CMPB A#SXOFF , (SP) :IS IT A XOFF 7 :DSH-BHL 
$f 010032 001012 BNE 112$ ;BR IF NO : :DSH-BHL 
(1) 010034 105777 171124 111$: TSTB a$sTKS sWAIT FOR A CHAR —32DSH-BHL 
(1) 010040 100375 BPL 111$ : :DSH-BHL 
(1) 010042 117716 171120 MOVB @$TKB, (SP) :GET THE CHAR : :DSH-BHL 
(1) 0:0046 042716 177600 BIC #177600, (SP) :;STRIP CHAR ; ;:DSH-BHL 
(1) 010052 122716 000021 CMPB #$XON, (SP) :IS IT A XON 7 :DSH-BHL 
A 010056 001366 BNE 111$ ;BR IF NO > :DSH-BHL 
(1) 010060 122716 000021 112$: CMPB #$XON, (SP) :1S IT RANDOM XON ? 3:DSH 
(1) 010064 001002 BNE 8$ :BR IF NOT 32DSH 
(1) 019066 005726 TST (SP) + :POP STACK 3 DSH 
a 010070 000747 BR OF : IGNORE XON CHAR 3:DSH 
(1) 010072 i22726 000015 8$: CMPB #15, (SP)+ : 
(1) 010076 001472 BEQ 5$ I 
(1) 010100 005077 171054 CLR @aSWR : 
(1) 010104 105777 171060 2$: TSTB a$sTPS : 
(1) 010110 100375 BPL 74 
(1) 010112 016677 177776 171052 MOV -2(SP) ,a$TPB . 
(1) 010120 000241 CLC : 
(1) 010122 006177 171032 ROL aSWR ; 
(1) 010126 006177 171026 ROL @aSWR ; 
(1) 010132 006177 171022 ROL @SwR ; 
(1) 010136 103713 BCS ; ERROR 
(1) 010140 : 


1$ 
026627 177776 000060 CMP ~2(SP) , #60 








——_— —- 


i 
i 


———— ee ee ee ae ee ee -~- —— —— — = - ——_ < 


09:46 PAGE 82-356 





eee em ee eee e——™” 


, 
| CZDZA=G0 MACY11 30A (1052) 24=JUN-81 SEQ 0056 
CZ2DZAG.P11 24=JUN-81 09:45 APT COMMUNICATIONS ROUTINE 
| (1) 010146 002707 BLT 1$ : 
| ©) 010150 026627 177776 000067 CMP -2(SP) ,#67 } 
| (1) 0101586 003303 BGT 1$ j 
| (1) 010160 042766 177770 177776 BIC #*C<7>,-2(SP) ; 
| (1) 0101 056677 177776 170764 BIS -2(SP) ,aSwR : 
| (1) 010174 105777 170764 12$: TSTB atTKS ; 
(1) 010200 100375 BPL -4 ; 
(1) 010202 017746 170760 MOV a$TKB,-(SP) 
(1) 010206 042716 177600 BIC #177600, (SP) :STRIP CHAR : :DSH=BHL 
(1) 010212 122716 000023 CMPB ASKOFF, (SP) -IS IT A XOFF +: DSH=BHL 
1} 010216 001012 BNE 122$ :BR IF NO : :DSH=BHL 
(1) 010220 105777 170740 121$:  TSTB a$TKS WAIT FOR A CHAR : :DSH-BHL 
(1) 010224 100375 BPL 121$ : :DSH=BHL 
(1) 010226 117716 170734 MOVB a$TKB, (SP) :GET THE CHAR : > DSH=BHL 
(1> 010232 042716 177600 BIC #177600, (SP) -STRIP CHAR : :DSH=BHL 
(1) 010236 122716 000021 CMPB A#SXON, (SP) -IS IT A XON + :DSH=-BHL 
) 010242 001366 BNE 121$ :BR IF NO + = DSH=BHL 
; | 
(1) 010244 122775 000021 122$:  CMPB #$XON, (SP) :1S IT RANDOM XON ? ::DSH 
(i) 010250 001002 BNE 10$ :BR IF NOT 3:DSH 
(1) 010252 005726 TST (SP) + :POP STACK ::DSH 
) 010254 000747 BR 12$ : IGNORE XON CHAR ::DSH 
(1) 
(1) 010256 122726 000015 10$: CMPB #15, (SP)+ 
(1) 010262 001310 BNE $ : 
(1) 010264 104402 001231 S$: TYPE ,$CRLF : 
W) 010270 000207 6$: RTS PC 
( 
(1) 010272 020200 051450 051127 89$: eASCIZ <200>? (SWR)=/? 
(1) 010300 036451 000057 
(1) ~EVEN 
(1) 010304 000001 88$: 1 
(7) 010306 006 000 .BYTE 6,0 
(1) 010310 010312 90$ 
(1) 010312 000000 90$: . WORD 0 
(1 014314 036457 000057 ee ASCIZ ?/=/? 
.EV 
(2) .SBTTL POWER DOWN AND UP ROUTINES 
(3) ST EAA ARAAAAAAKAEAEAAERAAERAEKARAEKEEAKAARAAERAAEAAERERRAERAERAEERA REED 
(2) POWER DOWN ROUTINE 
(2) 010320 012737 010464 000024 $PWRDN: MOV #SILLUP,@#PWRVEC ;;SET FOR FAST UP 
(2) C10326 012737 000340 000026 MOV #340, QAPWRVEC +2 7:PRIO:7 
(4) 010334 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(4) 010336 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 
(4) 010340 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 
(4) 010342 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
(4) 010344 010446 MOV R4,-(SP) ::PUSH R4 ON STACK 
(4) 010346 010546 MOV R5,-(SP) :PUSH RS ON STACK 
(4) 010350 017746 170604 MOV aSWR,- (SP) ::PUSH @SWR ON STACK 
(2) 010354 010637 010470 MOV SP, SSAVR6 :: SAVE SP 
(2) 010360 012737 010372 000024 MOV #$PWRUP, @APWRVEC :;SET UP VECTOR 
(2) 010366 000000 HAL T 
(2) 010370 000776 BR .-2 : HANG UP 


—— - _—_ = —_— — -——_— — eee ee + ee — —— ee - _— - —~s— ——— = —— - —_ == - 


F 5 
CZDZA=GO MACY11 30A(1052) 24=JUN-81 09:46 PAGE 82-37 SEQ 0057 
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| (3) RRR RA EEE EEAERER RR EEEEE REAR REREERREREEEREEREREE EERE ERED 
(2) “ POWER UP ROUTINE 
(2) 010372 012737 010464 000024 $PwRUP: MOV #SILLUP,a#PWRVEC ::SET FOR FAST DOWN 
(2) 010400 013706 010470 MOV $SAVR6, SP -:GET SP 
' (2) 010404 005037 010470 CLR $SAVR6 «WAIT LOOP FOR THE TTY 
(2) 010610 005237 010470 1$: INC $SAVR6 ;:WAIT FOR THE INC 
(2) 010614 001375 BNE 1$ WORD 
| (4) 010616 012677 170536 MOV (SP) +, aSWR : POP STACK INTO @SWR 
(4) 010422 012605 MOV (SP) +_~R5 POP STACK INTO R5 
(4) 010424 012604 MOV (SP) +,RG POP STACK INTO RG 
(4) 010426 012603 MOV (SP) +_R3 << POP STACK INTO R3 
(4) 010430 012602 MOV (SP) +R? =:POP STACK INTO R2 
(4) 010432 012601 MOV (SP)+-R1 ::POP STACK INTO R1 
(4) 010434 012600 MOV (SP)+,RO :;POP STACK INTO RO 
(2) 010436 012737 010320 00024 MOV #SPWRDN, a#PWRVEC ::SET UP THE POWER DOWN VECTOR 
(2) 010444 012737 000340 000026 MOV #340, aMPWRVEC+2 ;:PRIO:7 
(2) 010652 104402 TYPE ; REPORT THE POWER FAILURE 
(2) 010654 010472 SPWRMG: .WORD MPFAIL ;;POWER FAIL MESSAGE POINTER = 
(2) 010456 012716 MOV (PC) +, (SP) ; RESTART AT RESTART 
(2) 010460 012106 $PWRAD: .WORD RESTART *=RESTART ADDRESS 
(2) 010462 000002 RTI 
(2) 010464 000000 SILLUP: HALT -:THE POWER UP SEQUENCE WAS STARTED 
(2) 010466 000776 BR 72 :; BEFORE THE POWER DOWN WAS COMPLETE 
(2) 010470 900000 SSAVRE: 0 >:PUT THE SP HERE 
(2) 010472 050200 051127 043040 MPFAIL: .ASCIZ <200>/PWR FAILED. RESTART AT LAST TEST / 
(2) 010535 200 047105 020104 MEPASS: .ASCIZ <200>/END PASS CZDZA-G / 
(2) 010560 051200 047125 044516 MR: "ASCIZ <200>/RUNNING / 
(2) 010574 050200 047522 051107 MERR2: ASCIZ <200>/PROGRAM INDICATES NO DEVICES PRESENT. / 
(2) 010643 200 047111 052523 MERR3: .ASCIZ <200>/INSUFFICIENT DATA!/ 
(2) 010667 200 047514 045503 MLOCK: -ASCIZ <200>/LOCK ON SELECTED TEST/ 
(2) 010716 051503 035122 000040 MCSRX: .ASCIZ /CSR: / 
(2) 010724 042526 035103 000040 MVECX: .ASCIZ /VEC: / 
(2) 010732 040520 051523 051505 MPASSX: .ASCIZ /PASSES: / 
(2) 010743 05 051122 051117 MERRX: _ASCIZ /ERRORS: / 
(2) 010754 042524 052123 047040 MTSIN: .ASCIZ /TEST NO: / 
(2) 010766 020052 000 MASTEK: .ASCIZ /* 
(2) 010771 200 042523 020124 MNEW: .ASCIZ <200>/SET SWITCH REG TO DZ11°S DESIRED ACTIVE./ 
(2) 011043 120 035103 000040 MERRPC: .ASCIZ 
(2) 011050 046600 050101 047440 XHEAD: .ASCIZ ci nee OF DZ11 STATUS/<200> 
(2) 011075 200 046111 042514 MBADLN: .ASCIZ <200>/ILLEGAL ENTRY IN STAGGERED MODE/<200> 
(2) 011140 EVEN 
(2) 011140 000002 XSTATQ: 2 
(2) 011142 006 003 ‘BYTE 6,3 
(2) 011144 001220 $TMP1 
(2) 011146 006 002 -BYTE 6.2 
(2) 011150 001222 on $TMP2 
~E VEN 
(2) :THIS ROUTINE ESTABLISHES WHICH MAINTENANCE MODE THE DEVICE IS IN 
(2) “E=EXTERNAL LOOP BACK 
(2) > ]=INTERNAL LOOP BACK 
(2) >S=STAGGERED LOOP BACK 
(2) 011152 017605 000000 .SETFLG:MOV a(SP) RS :PICK UP ADDRESS OF TAG 
(2) 011156 042737 000040 011272 BIC #40, INBUF “STRIP LOWER CASE 
(2) 011164 122737 000105 011272 COPS #°E INBUF is IT EXTERNAL LOOP BACK ? 
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—— - €2)——«019174 «013718 «011264 MOV 1$, (RS) :YES STORE INFO 
(2) 011200 «105037 001417 CLRB = MNTFLG ;SET MAINT BIT =0 
/ €2) 011206 22 BR 7$ :GET OUT 
| (2) 011206 122737 000111 011272 4$: CMPR #' 1, INBUF :1S IT INTERNAL LOOP BACK ? 
| (2) 011214 001006 BNE 5$ :NO 
(2) «011216 «013715 «011266 MOV 2$, (RS) -YES STORE INFO 
| (2) 011222 112737 000010 001417 MOVB emAINT, MNTFLG :SET UP THE MAINTENANCE FLAG LOADER 
| (2) 011230 000410 BR 7$ -GET OUT 
(2) 011232 122737 000123 611272 S$: (MPR #°S, INBUF :1S IT STAGGERED LOOP BACK ? 
(2) 011240 001007 BNE 6$ * WHAT 
(2) 011262 013715 011270 MOV 3$, (RS) “YES STORE INFO 
(2) 011266 105037 001417 CLRB  MNTFLG -7ERO BITS 
(2) 011252 062716 000002 7$: ADD #2, (SP) -POP AROUND 
(2) 011256 RTI 
(2) 011260 104404 6$: INSTER :RETRY 
(2) 011262 000733 BR .SETFLG “DITTO 
(2) 011264 000200 1$: .WORD 200 “EXTERNAL = é 
(2) 011266 000000 2$: WORD 0 - INTERNAL = 
(2) 011270 100000 3g: -WORD 100000 “STAGGERED = S 
ee :BUF FERS FOR INPUT-OUTPUT 
(2) 011272 000000 INBUF: 0 
(2) 011334 =. %40 
(2) 011334 000000 TEMP: 
(2) 011376 .=. +40 
(2) 011376 000000 MDATA: 
(2) 011440 =, +40 
) 
(2) 0114460 011637 011536 SET.PS: MOV (SP), 3$ 
(2) 011444 162737 000002 011536 SUB #2, 
(2) 011452 017737 000060 011540 MOV a3$.4$ 
(2) 011460 022737 106427 011540 CMP #106427.4% 
(2) 011466 001003 BNE 1$ 
(2) 011470 011637 011536 MOV (SP) .3$ 
(2) 011474 12 BR 2$ 
(2) 011476 022737 106437 0115460 18: CMP #106437,4$ 
(2) 011504 001401 BEQ +6 
(2) 011506 HALT :RESERVED INSTRUCTION NOT ‘MTPS'' 
(2) 011510 011637 011536 MOV (SP) 
(2) 011516 017737 000016 011536 MOV a3$, 3$ 
(2) 011522 062716 000002 2$: ADD #2, (SP) 
(2) 011526 017766 000002 MOV a3$,2(SP) 
(2) 011534 000002 RT] 
(2) 011536 000000 zg: 0 
(2) 011560 000000 4$: 0 
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09:46 PAGE 82-39 
DOWN AND UP ROUTINES 


;ROUTINE USED TO ‘‘CYCLE’’ THROUGH UP TO SIXTEEN DZ11°S 

sTHIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE  LAGNOST IC 
;AND RUNS THE SPECIFIED DZ77°S. THIS ROUTINE *MuUST® 

;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

; SETUP NECESSARY. 


TS? > edad oe i DZ11°S TO BE TESTED? 
TYPE -MERR2 7NO DZ11°S SELECTED! 

HALT :STOP THE SHOW. 

BR 72 *DISQUALIFY CONT. Sw. 


MOV SMXCNT ,STIMES 
BIT RUN DZACTY 


sRESTORE THE NUMBER OF ITERATIONS TO MAKE 
31S THIS ONE “ACTIVE 


¥. 2$ :BR IF GOOD ONE FOUND 

L 

ROL RUN ; UPDATE POINTER 

ADC RUN ;CATCH CARRY FROM RUN 
ADD #14,ACTIVE ; UPDATE ADDRESS POINTER. 


CMP @DZ.END,ACTIVE ;HAVE WE PASSED THE END OF THE MAP? 
BNE 1$ :I1F NO, KEEP GOING; NOT ALL TESTED FOR. 
MOV #D7.MAP,ACTIVE :RESET ADDRESS POINTER 

BR 1$ “KEEP LOOKING FOR ACTIVE D211 


CLC 
ROL RUN ; UPDATE POINTER. 
ADC RUN ; CATCH CARRY. 
MOV ACTIVE,RO ;GET ADDRESS POINTER. 
ADD #iS ACTIVE ; UPDATE. 
CMP #DZ7.END, ACTIVE 
zALL DONE? 
BNE 3$ :BR IF NO. 
MOV M#DZ7.MAP,ACTIVE ;RESTORE POINTER. 
MOV (RO) +, $BASE sLOAD SYSTEM CTRL. REG 
MOV (RO)+,DZRIV >| 0AD VECTOR 
MOV (RO)+,DZPRT = ;LOAD PRIORITY 
MOVB DZ7PRT+1,EIAFLG ;EIA OR 2 
BIC #B1T15,DZPRT CLEAR FLAG 
MOV (RO)+, LINE :SET UP LINE DZ st ACTIVE 
MOV (RO) +, PAR >SET UP PARAMETERIZATION 
MOV (RO) +, MODE :SET UP MAINTENANCE MODE 
JSR PC .DZLEV SET UP 
TST a4? ;ARE WE UNDER MONITOR CONTROL? 


BNE 4$ sIF VES, SKIP THIS SETUP 
BIT #SW01, @SWR ;1F SWOl=7, GET STARTING TEST # 
BEG 4$ ;BR IF NO TEST IS TO BE INPUTTED 


TYPE .$CRLF 

INSTR ;CALL THE STRING INPUT ROUTINE 

MTSTN ;POINTER TO MESSAGE TO BE PRINTED 

PARAM :CALL THE OCTAL TO ASCII] CONVERT ROUTINE 


1 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 


1000 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
STSTNM sPOINTER TO MAP LOCATION TO BE FILLED 

-BYTE 0 ;MASK OF INVALID BITS FOR THIS PARAMETER 

SYTE | ;NUMBER OF PARAMETERS TO STORE 


SEQ 0059 
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C7D7A4=G0 MACY11 30A(1052) 24=JUN-81 09: 46 PAGE 82-40 SEQ 0060 
ic C2D2AG.P11 24=JUN=81 09:45 POWER DOWN AND UP ROUTINES 
(2) 012070 01270C 013046 MOV #TST1,R0 
| (2) 012014 022710 000004 S$: CMP #4, (RO) 
(2) 012020 001020 NE 6s 
| (2) 012022 022760 012737 000002 CMP #12737,2(R0) 
(2) 012030 001014 BNE 6 
| (2) 012032 023760 001122 000004 CMP $TSTNM,4(RO) its THIS THE TEST 
(2) 012040 001010 BNE 6$ : IF DON'T PROCESS NUMBER 
| (2) 012042 010037 001126 MOV RO, $LPADR Save pC 
(2) 012046 062737 000002 601126 ADD #2. $LPADR “POP OVER SCOPE 
(2) 012054 104402 001231 TYPE $CRLF 
(2) 012060 1 BR 8$ 
(2) 012062 005720 _ 6$: TST (RO) + 
(2) 012064 020027 023454 CMP RO, ATLAST+10 
(2) 012070 001351 BNE S$ 
(2) 012072 104402 001230 TYPE SQUE S 
(2) 012076 000733 BR ? 
(2) 012100 012737 013046 001126 48: MOV @TST1.$LPADR  : PREPARE TEST ADDRESS 
(2) 012106 000177 167014 RESTART: JMP a$_LPADR 3;GO START TESTING. ***WARNING! eee 
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C2D24=GO MACY11 30A(1952) 24=JUN-81 39: 46 PAGE 82-41 SEQ 0061 
C026. P11 24=JUN=81 09:45 POWER DOWN AND UP ROUTINES 
| (2) :=ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 
(3) > JF BIT7 IN THE ENVIRONMENT MCDE ($ENVM) BYTE IS SET, 
| (2) : THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 
i LF 
<2) 012112 012700 001500 SETAPT: MOV #D7.MAP,RO :POINT TO THE DEVICE MAP TABLE 
(2) 012116 013701 001310 MOV SRASE ,R1 “BUILD DEVICE ADDRESSES IN R1 
(2) 012122 013702 001304 MOV $VECT1.R2 “BUILD DEVICE VECTORS IN R2 
(2) 012126 042702 177007 BIC #*°C<770>,R2 =STRIP AWAY OTHER INFORMATION 
( 
(2) 012132 113703 001305 MOVB $VECT1+1,R3 :LOAD THE INTERRUPT PRIORITY FROM R3 
(2) 012136 106U03 RORB = R'3 “ALIGN THE NUMBER 
(2) 012140 106003 RORB = RB -ALIGN THE NUMBER 
(2) 012142 106003 RORB = R'3 “ALIGN THE NUMBER 
(2) 012144 3 RORB = R'3 “ALIGN THE NUMBER 
(2) 012146 106003 RORB = R83 “ALIGN THE NUMBER 
(2) 012150 042703 177770 BIC #AC<7>.R3 “REMOVE ALL BUT BUS LEVEL NUMBER 
(2) 012154 012704 001320 MOV #SDDWO.R4 “POINT TO THE BEGINNING OF DEVICE PARAMETERS 
(2) 012160 013705 001312 MOV SDEVM,R5 “GET THE MAP OF ACTIVE DEVICES 
(2) 012164 010537 001404 MOV R5.DZACTV -SAVE THE BIT MAP 
(2) 012170 005 1$: ROR R5 -GET A DEVICE SELECTION BIT 
(2) 012172 103407 BCS 3$ -IF IT IS SELECTED, GO SET UP A MAP 
(2) 012174 001425 BEU 5$ -IF NO MORE ARE SELECTED, GET OUT OF SETUP 
(2) 012176 005724 TST (R4)+ “POINT TO NEXT DEVICE DESCRIPTOR 
(2) 012200 062701 900010 2$: ADD #10,R1 =SET UP THE NEXT ADDRESS 
(2) 012204 062702 000010 ADD #10,R2 “SET UP THE NEXT VECTOR GROUP 
(2) 012210 000767 BR $ -GO SEE IF MORE DEVICES REMAIN 
(2) 012212 010120 3$: MOV R1,(RO)+ -LOAD DEVICE ADDRESS 
(2) 012214 010220 MOV R2. (RO) + “LOAD THE VECTOR ADDRESS 
(2) 012216 010320 MOV R3.(RO)+ “LOAD THE INTERRUPT PRIORITY LEVEL 
(2) 012220 013720 001314 MOV $CDW1, (RO) + -GET THE NUMBER OF LINES IN OPERATION 
(2) 012224 012420 MOV (R4)+, (RO) + : LOAD DEVICE PARAMETERS 
(2) 012226 BPL 4$ F 20MA MODE SELECTED, SET IT UP 
(2) 012230 052760 100000 177772 BIS #100000,-6(RO) SET THE 20MA FLAG IN DZLVN 
(2) 012236 042760 100000 177776 BIC #100000, -2(RO) =:CLEAR THE FLAG IN DZPARN 
(2) 012244 005020 4$: CLR (RO) + “DEFAUL! OPERATION TO INTERNAL MAINTENANCE MODE 
(2) 012246 000754 BR 2$ -GO BUILD THE NEXT ADDRESS 
(2) 012250 012710 177777 5$: MOV #-1, (RO) = TERMINATE THE DEVICE MAP 
(2) 012254 012737 001256 001160 MOV #SSWREG, SWR “SET TO SOFTWARE APT SWITCH REGISTER 
(2) 012262 000207 RTS PC “RETURN TO PRINT STATUS TABLE 
(2) 
(2) :*ROUTINE USED TO "‘AUTO SIZE‘ THE DZ11 
(2) =*CSR AND VECTOR. 
(2) >*NOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
(2) :* ADDRESS RANGE (160000: 163700) 
(2) :* AND THE VECTOR MAY BE ANY WHERE IN THE 
(2) :* FLOATING VECTOR RANGE (300:770) 
(2) 
(2) 012264 | AUTO. SIZE: 
(2) 012264 000005 RESE : INSURE A BUS INIT. 
(2) 012266 105337 001415 DECB _—sCINIFLG *SHOW THAT I WAS HERE 
(2) 012272 012702 001500 CSRMAP: MOV #D7.MAP,R2 “LOAD MAP POINTER 
(2) 012276 012703 001320 MOV #$DDWO,R3 “POINT TO ETABLE DEVICE DESCRIPTOR WORDS 
(2) 012302 005022 _ 1$: CLR (R2)+ -ZERO ENTIRE MAP 
(2) 012306 022702 002000 CMP #D2.END,R2 =ALL DONE? 
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CZDZA=GO MACY11 30A(1052) 24-JUN-81 202: 46 PAGE 82-42 SEQ 0062 
C2DZAG.P11 24=JUN-81 09:45 DOWN AND UP ROUTINES 
(2) 012310 001374 BNE 1$ :BR IF NO 
(2) 012312 105037 001410 CLRB DZNUM =SET OCTAL NUMBER OF DZ11'S TO 0 
(2) 012316 012702 001500 MOV #D7.MAP,R2 
(2) 012322 012701 160000 MOV #160000,R1 :SET FOR FIRST ADDRESS TO BE TESTED 
(2) 012326 012737 012646 000004 MOV #6$, a4 =SET FOR NON-EXISTENT DEVICE TIME OUT 
(2) 012334 052711 000040 BIS #RITS, (R1) -TRY TO SET MASTER SCAN ENABLE 
(2) 012340 052761 000200 000004 BIS #81T7,4(R1) -TRY TO TRANSMIT ON LINE 7 
(2) 012346 005 CLR RO : USE RO AS A COUNTER 
(2) 012350 005711 7$: TST (R1) HAS TRANSMITTER READY COME UP? 
(2) 012352 100403 RM | 8$ IF SO, GO GET A FINAL CHECK 
(2) 012354 005300 DEC RO “REDUCE COUNT. TIME UP? 
(2) 012356 001374 BNE 7$ 1F NOT, KEEP WAITING 
(2) 012360 63 BR 3$ ASSUME IT'S NOT A D211 
(2) 2362 032761 000200 000004 8%: BIT #B1T7,4(R1) “TS LINE 7 ENABLE STILL SET? IT SHOULD BE 
(2) 012370 001457 BEQ 3$ -IF IT°S NOT, ASSUME IT°S NOT A 0211 
(2) 012372 032711 000040 BIT #31T5,(R1) -I1S MASTER SCAN ENABLE STILL SET? 
(2) 012376 001454 BEQ 3$ -IF NOT, ASSUME IT'S NOT A D211 
(2) 012400 005 CLR RO 
(2) 012402 052711 000020 BIS #20, (R1) :SET DEVICE CLEAR 
(2) 012406 032711 000020 BIT #20, (R1) =SHOULD STAY SET FOR A WHILE IF DZ 
(2) 012412 001446 BEQ 3$ =BR IF NOT D211 
(2) 012414 032711 000020 BIT #20, (R1) -WAIT FOR BIT TO CLEAR 
(2) 012420 001404 BEQ +12 “BR WHEN CLEARED 
(2) 012422 104414 DELAY 
(2) 012424 005200 INC RO 
(2) 012426 001372 BNE 12 
(2) 012430 37 BR 3$ :BIT NOT CLEARED! MUST NOT BE D211 
(2) 012432 005011 CLR (R1) “GET RID OF MASTER SCAN ENABLE 
(2) 012434 005061 000004 CLR 4(R1) -GET RID OF LINE 7 ENABLE 
(2) -AT THIS POINT IT IS ASSUMED THAT R1 HOLDS A D211 CSR ADDRESS. 
(2) 012440 010122 MOV R1,(R2)+ -STORE CSR IN CORE TABLE. 
(2) 012442 005722 TST (R2)+ =POP OVER VECTOR STORE AREA 
(2) 012444 012722 000005 MOV #5, (R2)+ -SET THE DEFAULT BUS LEVEL 
(2) 012450 052761 177400 000004 BIS #177400,4(R1)  :TRY TO SET ALL DTR BITS 
(2) 012456 032761 177400 000004 BIT #177400,4(R1)  :IF ANY SET ASSUME EIA BOARD 
(2) 012464 001003 BNE 9$ -IF NONE SET ASSUME BOARD IS 
(2) 012466 052762 100000 177776 BIS #B1T15,.-2(R2)  :20 MA, SET 20 MA FLAG 
(2) 012474 012722 000377 9$: MOV #377, (R2)+ >SET THE DEFAULT LINE SELECTION PARAMETER 
(2) 012500 012712 017070 MOV #17070, (R2) -SET THE DEFAULT PARAMETERS 
(2) 012504 012223 MOV (R2)+, (R3)+ “COPY PARAMETERS INTO ETABLE DESCRIPTOR 
(2) 012506 005022 CLR (R2) + -SET THE DEFAULT MODE OF OPERATION 
(2) 012510 012712 177777 MOV #-1, (R2) > TERMINATE LIST 
(2) 012514 105237 001410 INCB  —DZNUM ; UPDATE DEVICE COUNTER 
(2) 012520 122737 ©00020 001410 CMPB #20,DZNUM MAX. NO. OF DEV FOUND? 
(2) 012526 001405 BEQ 100$ -YES DON'T LOOK FOR ANY MORE. 
(2) 012530 062701 000010 3$: ADD #10.R1 “UPDATE CSR POINTER ADDRESS 
(2) 012534 022701 163700 CMP #163700.R1 
(2) 012540 001275 BNE 2$ :BR IF MORE ADDRESS TO CHECK. 
(2) 012542 100$: 
(2) 012542 105737 001410 TSTB = DZNUM :WERE ANY DZ11°S FOUND AT ALL? 
(2) 012546 001432 BEQ 5$ -ERROR AUTO SIZER FOUND NO D211°S IN THIS SYS. 
(2) 012550 113701 001410 MOVB —DZNUM,R1 
(2) 012554 110137 001411 MOVB — R11, SAVNUM :SAVE NUMBER OF DEVICES 
(2) 012560 012737 000001 001404 MOV #1 .DZACTV 
(2) 012566 005301 4$: DEC R1 
(2) 012570 001404 BEQ 98$ 
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C7DZAG.P11 24=JUN-81 09:45 POWER DOWN AND UP ROUTINES ie. , 
(2) 012572 000261 SEC 
(2) 012574 006137 001404 ROL DZACTV 
(2) 012600 000772 BR 4$ 
(2) 012602 013737 001500 001310 98%: MOV DZCRO, $BASE :POINT TO THE ADDRESS OF FIRST DEVICE 
(2) 012610 013737 001512 001314 MOV MANTO, $CDW1 ;INDICATE TO ETABLE WHAT MODE IS BEING USED 
(2) 012616 012737 000006 000004 99%: MOV #6, a4 ‘RESTORE TRAP VECTOR 
(2) 012624 013737 001404 001312 MOV DZACTV,$DEVM  :SAVE ACTIVE REGISTER 
(2) 012632 000410 BR VE CMAP -GO FIND THE VECTOR NOW. 
(2) 012634 104402 010574 5$: TYPE .MERR2 “NOTIFY OPR THAT NO DZ11'°S FOUND. 
(2) 012640 005000 CLR RO *MAKE DATA DISPLAY ZERO 
(2) 012642 000000 HALT -STOP THE SHOW 
(2) 012644 000776 BR .-2 “DISABLE CONT. SW. 
(2) 012646 012716 012530 6$: MOV #3$, (SP) “ENTERED BY NON-EXISTENT TIME-OUT 
(2) 012652 000002 RTI “RETURN TO MAINSTREAM 
(2) 012654 012737 000340 000022 VECMAP: MOV #340, a422 :SET IOT TRAP PRIORITY TO 7 
(2) 012662 012737 013000 000020 MOV #4$,a420 -SET IOT TRAP VECTOR 
(2) 012670 012702 001500 MOV #DZ.MAP,R2 =SET SOFTWARE POINTER 
(2) 012674 012700 000300 MOV #300,R0 > FLOATING VECTORS START HERE. 
(2) 012700 012701 000302 MOV #302,R1 -PC OF IOT INSTR 
(2) 012704 010120 1$: MOV RI. (RO) + “START FILLING VECTOR AREA 
(2) 012706 012721 000004 MOV. #4,(R1)+ “WITH .+2; IOT 
(2) 012712 022021 CMP Rb) *. (R1)+ “ADD 2 TO RO +R1 
(2) 012714 020127 001000 CMP R1.41000 “HAS THE VECTOR AREA BEEN EXCEEDED? 
(2) 012720 101771 BLOS 1$ “BR IF MORE TO FILL 
(2) 012722 013704 001404 MOV DZACTV,R4 *STORE TEMPORARILY 
(2) 012726 000241 2$: CLC 
(2) 012730 006004 ROR R4 :BRING OUT A BIT 
(2) 012732 103036 BCC 5$ “BR IF ALL DONE 
(2) 012734 106427 000000 MIPS #0 -ZERO CPU PRIO 
(2) 012740 012772 040040 000000 MOV #B1114+BIT5,a(R2) 
(2) 012746 011201 MOV (R2).R1 -GET CSR 
(2) 012750 112761 000200 000004 MOVB #BIT7,4(R1) “SET THE TCR BIT! 
(2) “ATTEMPT TO FORCE AN INTERRUPT 
(2) 012756 005200 INC RO > STALL 
(2) 012760 001376 BNE 2 FOR TIME TO INTERRUPT 
(2) 012762 012762 000300 000002 MOV #300,2(R2) *NO INTERRUPT ASSUME 300 AND FIX DZ11 LATER 
(2) 012770 000005 3$: RESET > INIT 
(2) 012772 062702 000014 ADD #14.R2 “POP SOFTWARE POINTER 
(2) 012776 000753 BR 2$ “KEEP GOING 
(2) 013000 011662 000002 4$: MOV (SP) ,2(R2) “GET VECTOR ADDRESS 
(2) 013004 162762 000010 000002 SUB #10,2(R2) “POINT BACK TO THE CORRECT VECTOR 
(2) 013012 042762 000007 000002 BIC #7,2(R2) *CLEAR JUNK 
(2) 013020 022626 POP2SP “POP IOT JUNK OFF STACK 
(2) 013022 012716 012770 MOV #3$, (SP) “SET FOR RETURN 
(2) 013026 000002 RT] ’ 
(2) 013030 013737 001502 001304 S$: MOV DZVCO,$VECT1 -COPY VECTOR OF FIRST DEVICE INTO ETABLE 
005122 000020 MOV #.SCOPE,IOTVEC :RESTORE THE SCOPE TRAP 


RTS PC sALL DONE WITH ‘’AUTO SIZING’’ 
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CZDZAG.P11 24-JUN-81 745 CZDZA DZ11 DEVICE DIAGNOSTICS. 
8621 
R622 peaakakekaekaaeaeraenkeree TEST ] eee eee eee eee een eee knee enen ee 
(i) = * THIS TEST PROVES THE SLAVE SYNC RESPONSE 
(1) : *DURING A READ OR WRITE TO THE FOLLOWING ADDRESS: 
(1) ;* DZCSR, DZRBUF, DZTCR, DZMSR 
(5) Le TEST 1 
(6) SERRE REE EERE REE REE REREREE EREREEREEEEEEEEREE EEE 
(5) 013046 000004 TST1: SCOPE 
(3) 013050 012737 000001 001122 MOV #1,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
(3) 013056 012737 013236 001360 MOV ATST2,NEXT sPOINT TO THE START OF THE NEXT TEST 
(1) 01 012737 013224 000004 MOV #5$,4 ;SET TRAP VECTOR 
(1) 013072 012737 000340 000006 MOV #PR7,6 :SET PRIORITY TO LEVEL 7 
(1) 015100 012737 013106 001362 MOV #1$,LOCK 3SET RETURN IF SWO9=11 
(1) 013106 013700 002042 1$: MOV DZCSR,RO ;SET ADDRESS TO TEST 
(1) 013112 011001 MOV (RO) ,R1 ;READ THE ADDRESS 
(1) 013114 000240 NOP “WASTE TIME 
(1) 013116 005010 CLR (RO) WRITE THE ADDRESS 
(1) 013120 000240 NOP “WASTE TIME 
(1) 013122 012737 0131350 J01362 MOV #2$,LOCK SET RETURN ADDRESS FOR SwO9 
(1) 013130 013700 002046 2$: MOV DZRBUF ,RO ;SET ADDRESS TO TEST 
(1). 013134 011001 MOV (RO) ,R1 READ THE ADDRESS 
(1) 013136 000240 NOP 
(1) 013140 005010 CLR (RO) “WRITE THE ADDRESS 
(1) 013142 000240 NOP “WASTE TIME 
(1) 013144 012737 013152 001362 | MOV #3$,LOCK SET RETURN ADDRESS FOR SWO9 
(1) 013152 013700 002056 5$: MOV DZTCR,RO :SET ADDRESS TO TEST 
(1) 013156 011001 MOV (RO) ,R1 *READ THE ADDRESS 
(1) 013160 000240 NOP 
(1) 013162 005010 CLR (RO) WRITE THE ADDRESS 
(1) 013164 000240 NOP ipa pe 
(1) 013166 012737 013174 001362 MOV #4$,L0CK ;SET RETURN ADDRESS 
(1) 013174 013700 002062 4$: MOV DZMSR,RO ;SET ADDRESS TO TEST 
(1) 013200 011001 MOV (RO) ,R1 ;READ FROM ADDRESS 
(1) 013202 000240 NOP 
(1) 3204 005010 CLR (RO) ;WRITE THE ADDRESS 
(1) 013206 000240 NOP 
(1) 013210 012737 000006 000004 MOV #6,4 :SET TRAP CATCHER BACK TO NORMAL 
(1) 013216 005037 000006 CLR 6 
(1) 013222 104400 ADVANCE ® SCOPE THIS TEST 
(1) 013224 011601 5$: MOV (SP) ,.R1 ;SAVE PC OF TRAP 
(1) 013226 022626 CMP (SP)+, (SP)+ =POP TRAP OFF STACK 
(1) 013230 104001 ERROR 1 :*NO SLAVE SYNC RESPONSE. 
(1) 013232 104401 SCOP1 ; SWO9= 1? 
(1) 013234 000111 JMP (R1) 
8623 ettTt ttt tit titi iti tit t i TEST OC REAR EREEEREREREEEEE EKER 
8624 = *THIS TEST PROVES THAT BIT ‘DCLR'’ 
8625 : *CAN BE SET AND THAT IT WILL CLEAR 
8626 : *BY ITSELF AFTER A PERIOD OF TIME. 
8628 e:@ TEST 2 
(5) DDRII TOR TOR TOT OR ROR IRR RRR REE EEK RR kt 
(4) 013236 000004 TST2: SCOPE 
(2) 013240 012737 000002 001122 MOV #2,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
(2) 013246 012737 013322 001360 MOV #TST3,NEXT sPOINT TO THE START OF THE NEXT TEST 
8629 013254 013700 002042 MOV DZCSR,RO 3SET POINTER 
8630 013260 012705 000020 MOV #DCLR,R5 :SET DCLR 
8631 013264 010510 MOV R5, (RO) “WRITE DCLR INTO DZCSR 
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MOV (RO) ,R4 ¢READ BACK DZCSR 
CMP R5,R4 ZCSR OK? 
BEQ 1$ IF IT IS SET SKIP THE ERROR CALL 
ERROR 2 ;*DCLR SHOULD BE SET. .MOMENTARILY 
; NOW ’ WATCH IT DISAPPEAR 
1$: CLR R2 ;SET COUNTER TO 0 
CLR R5 :SET EXPECTED TO 0 
CLR R3 :DUAL LOOP COUNTER 
2$: MOV (RO) ,R4 :I1S DCLR CLEAR? 
BEQ 3$ :IF YES , GO TO THE 4s". its 
INC R3 :IF NO,COUNT 1 OF 65535 TICKS 
:THE WORD CREATED BY THE IMMEDIATE O WILL BE 
: THE COUNTER 
BNE 2$ :HAS THE TIME EXPIRED? IF NO, GO TEST BIT AGAIN 
DEC R2 sHAS THE TOTAL TIME EXPIRED? 


BNE 2$ ;I1F NO, CHECK THE BIT AGAIN 


35 ERROR 2 = *DCLR FAILED TO CLEAR 
TERRA EEE EERE TEST 5 REAR KEE REE EE 
= *TEST TO VERIFY THAT BIT “MAINT’* C 
: *BE SET. THEN VERIFY THAT BIT MAINT?! CAN 
: *BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
s*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
OO e * artoes BY A ‘DEVICE CLEAR'’ 
TEI IOIOIIDOIIUISIDIIOIIOIIISIOIOIIOIIIUIOIDTCIIDIOISIOIOIIOISIIISDIOIINIUIDII IOS 
TST3: SCOPE 
MOV 4#3,$TSTNM ;LOAD THE NUMBER OF THIS TEST © 
MOV MTST4,NEXT sPOINT TO THE START OF THE NEXT TEST 
MOV DZCSR,RO ;GET BASE ADDRESS 
MOV AMAINT,R5 :SET BIT 
MOV R5, (RO) “SET SET IN DEVICE 
MOV (RO) ,R4S ;READ THE BIT FROM DEVICE 
CMP R5,R4 sWAS BIT SET? 
BEQ 1$ “BR IF YES 
ERROR ;*BIT R/W —- 
1$: BIC R5, (RO) = CLEAR THE BIT 
MOV (RO) ,R4S >READ DEVICE 
BEQ 2$ “BR IF BITS WERE CLEARED. 
MOV R5,-(SP) s;SAVE THE BIT 
CLR R5 “SET EXPECTED RESULTS TO 0 
ERROR 2 > *BIT FAILED TO CLEAR 
MOV (SP)+,R5 sRESTORE THE BIT. 
2$: MOV R5, (RO) ;SET THE BIT AGAIN 
DEVICE.CLR 7 ISSUE DEVICE CLEAR 
MOV (RO) ,R4 = READ THE BIT 
BEQ “BR IF BIT CLEARED BY INIT (DEVICe CLEAR) 
CLR R5 ;SET EXPECTED TO ZERO 
35 ERROR 2 > *BIT NOT CLEARED BY DEVICE CLEAR 


SERRATE ATTA ERA TEST TM SESESSSSLSSL SESS ESE EEE EEE SESS 
:*TEST TO VERIFY THAT BIT "MSENAB'" CAN 

;*BE SET. THEN VERIFY THAT BIT *“MSENAB" CAN 

:*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 

:*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 

:*CLEARED BY A ‘DEVICE CLEAR"’ 


—— oO eee ee — 


SEQ 0065 


——_ en ——— = 
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s:® TEST & 
SLUR ERA REAR EREREREAAEREERE RARER RE RAEREEEE ERE EEREEEER EEE EE 
TST4: SCOPE 
012737 001122 MOV #4, STSTNM ;LOAD THE NUMBER OF THIS TEST 
012737 013506 001360 MOV ATSTS,NEXT sPOINT TO THE START OF THE NEXT TEST 
013700 002042 MOV D7CSR,RO ;GET BASE ADDRESS 
012705 000040 MOV AMSENAB ,RS “SET BiT 
010510 MOV R5, (RO) ;SET SET IN DEVICE 
011004 MOV (RO) RS ;READ THE BIT FROM DEVICE 
020504 CMP R5,R4 ;WAS BIT SET? 
001401 BEQ 1$ “BR IF YES 
104002 ERROR ;*BIT R/W FAILURE 
040510 1$: BIC R5,(RO) ;CLEAR THE BIT. 
011004 MOV (RO) ,R4 sREAD DEVICE 
001404 BEQ ;BR IF BITS WERE CLEARED. 
010546 MOV RS5,-(SP) sSAVE THE BIT 
005 CLR sSET EXPECTED RESULTS TO 0 
104 ERROR 2 > *BIT FAILED TO CLEAR 
012605 MOV (SP)+,R5 ;RESTORE THE BIT. 
010510 2S: MOV R5, (RO) ;SET THE BIT AGAIN 
104413 DEVICE.CLR ; ISSUE DEVICE CLEAR 
011004 MOV (RO) ,R4 *READ THE BIT 
001402 BEQ 3$ ;BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
025005 CLR R5 ;SET EXPECTED TO ZERO 
104002 - ERROR 2 ;*BIT NOT CLEARED BY DEVICE CLEAR 
53: 
SARA EERE ERE REEEEEEKEEE TEST SS REECE EERE REKERRE EEE 
= *TEST TO VERIFY THAT BIT "'SILOEN™’ CAN 
:*BE SET. THEN VERIFY THAT BIT ‘'SILOEN'’ CAN 
: *BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
z*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
— BY A ‘DEVICE CLEAR’’ 
° :* 
TAGE IOI IOI II IDOI IIISISIIISIIIOIIDIIDIOISIOIIOIOISIOIOIDIOIIOOI OID OID 
TSTS: SCOPE 
012737 000005 001122 MOV #5, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
012737 013600 001360 MOV #TST6,NEXT sPOINT TO THE START OF THE NEXT TEST 
013700 002042 MOV DZCSR,RO ;GET BASE ADDRESS 
012705 010000 MOV #SILOEN,RS ;SET BIT 
010510 MOV R5, (RO) sSET SET IN DEVICE 
011004 MOV (RO) ,R4 ;READ THE BIT FROM DEVICE 
020504 CMP R5,R4 3WAS BIT SET? 
001401 BEQ $ ;BR IF YES 
104002 ERR 7*BIT R/W FAILURE 
040510 1$: BIC R5, (RO) ;CLEAR THE BIT. 
011004 MOV (RO) ,R4 =READ DEVICE 
001404 BEQ $ “BR IF BITS WERE CLEARED. 
010546 MOV R5,-(SP) :SAVE THE BIT 
5005 CLR SET EXPECTED RESULTS TO 0 
104002 ERR :*BIT FAILED TO CLEAR 
012605 MOV (SP)+,R5 ;RESTORE THE BIT. 
010510 2$: MOV RS, (RO) :SET THE BIT AGAIN 
104413 DEVICE.CLR : 'SSUE “¥hi CLEAR 
011004 MOV (RO) ,R4 ;READ THE BIT 
001402 BEQ :BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
5005 CLR R5 ;SET EXPECTED TO ZERO 





ee ee ee —™ ——_—_— - — - 


SEQ 0066 


-—- --- —--y 


——— mm ee ae 


CZ7DZA=GO 
CZDZAG.P11 


013576 
013600 


015670 
013672 


013672 


013740 


MACY11 30A(1052) 
24-JUN-81 09:45 


104002 


010546 


000006 
013672 
002042 
000100 


000007 
013764 
002042 
040000 


ee cy ee ee ee eee ell ee 


24-JUN-81 


001122 
001360 


001122 
001360 





09:46 PAGE 82-47 
CZDZA DZ11 DEVICE DIAGNOSTICS. 


ERROR 2 ;*BIT NOT CLEARED BY DEVICE CLEAR 


RARER ERERERRERRE RE TEST 6 EERE RRERERERREREAEER ERR EEE 
= *TEST TO VERIFY THAT BIT RIE’ CAN 
: *BE SET. THEN VERIFY THAT BIT ‘RIE*’ CAN 
: *BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
- *VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
res} STE ARED BY A ‘DEVICE CLEAR’ 
*** 


SEQ 0067 


3$: 


«RRR R ERE EERE REAR REE E RE REERE REE REE EERE REE ERE EEE 
TST6: SCOPE 
MOV #6,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
MOV #TST7,NEXT POINT TO THE START OF THE NEXT TEST 
MOV DZCSR,RO ;GET BASE ADDRESS 
MOV ARIE, R5 ;SET BIT 
MOV RS, (RO) ;SET SET IN DEVICE 
MOV (RO), RG ; READ THE e+ FROM DEVICE 
CMP R5, RG . gWAS BIT SET? 
BEQ 1$ “BR IF YES 
ERROR ;*BIT R/W + | be 
1$ BIC R5, (RO) ; CLEAR THE BIT 
MOV (RO) RS “READ DEVICE 
BEQ 2$ ;BR IF BITS WERE CLEARED. 
MOV R5,-(SP) ;SAVE THE BIT 
CLR R5 SET EXPECTED RESULTS TC 0 
ERROR 2 ;*BIT FAILED TO CLEAR 
MOV (SP)+,R5 sRESTORE THE BIT. 
cS: MOV R5, (RO) ;SET THE BiT AGAIN 
+ Mag CLR ; ISSUE DEVICE CLEAR 
(RO) ,R4 = READ THE BIT 
BEC 3$ “BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
CLR R5 ;SET EXPECTED TO ZERO 
3s ERROR 2 ;*BIT NOT CLEARED BY DEVICE CLEAR 
SAREE TEST 7 RRA 
**TEST TO VERIFY THAT BIT “TIE’’ CAN 
:*BE SET. THEN VERIFY THAT BIT ‘‘TIE’’ CAN 
: *BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
;*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
a i antes BY A ‘DEVICE CLEAR" 
TOE RUA IISISIIOIIDUII OID IIIOIIUIUIIIOUIIDOIDOIOIIDISI IOI iI nities 
TST?: 


;LOAD THE NUMBER OF THIS TEST 
:POINT TO THE START OF THE NEXT TEST 
;GET BASE ADDRESS 


sSET SET IN DEVICE 


SCOPE 

MOV 47, $TSTNM 

MOV ATST10O,NEXT 
MOV DZCSR,RO 

MOV #TIE,RS ;SET BIT 
MOV RS, (RO) 


MOV (RO) ,R4 :READ THE BIT FROM DEVICE 
CMP R5,R4 :WAS BIT SET? 
BEQ 1$ ;BR IF YES 
ERROR 2 ;*BIT R/W FAILURE 
1$: BIC R5, (RO) ;CLEAR THE BIT. 
MOV (RO) ,R4 :READ DEVICE 
BEQ 2$ :BR IF BITS Mens CLEARED. 
MOV R5,-(SP) ;SAVE THE BIT 


mm ee ee _—- _ 
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(2) 013742 005005 CLR R5 ;SET EXPECTED RESULTS TO 0 
(2) 013744 104002 ERROR 2 ;*BIT FAILED TO CLEAR 
(2) 013746 012605 MOV (SP)+,R5 RESTORE THE BIT. 
(2) 013750 010510 2$: MOV R5, (RO) ;SET THE BIT AGAIN 
(2) 013752 104413 DEVICE.CLR ; ISSUE DEVICE CLEAR 
<2) 013754 011004 MOV (RO) ,R4S “READ THE BIT. 
(2) 013756 001402 BEQ 3$ “BR IF BIT CLEARED = INIT (DEVICE CLEAR) 
(2) 013760 005005 CLR R5 ;SET EXPECTED TO ZERO 
(2) 013762 104002 ERROR 2 ;*BIT NCT CLEARED BY DEVICE CLEAR 
(2) 015764 3$: 
8653 SERRE REET REREAD TEST 1D RRR ERREREEEEEEEKERERAEEERERED 
(1) = * THIS TESTS THAT ALL OF THE FOLLOWING 
(1) = *BITS CAN BE: SET, CLEARED, CLEARED BY ‘DEVICE CLEAR °’ 
(1) = *BITS TESTED ARE: 
(1) :* TCRO, TCR1, TCR2, TCR3, TCR4&, TCRS, TCR6, TCR? 
(3) si” TEST 10 
(6) LL EEE EERE REE REE REE ERE REE ER 
(5) 013764 000004 TST10: SCOPE 
(3) 013766 012737 000010 v01122 MOV #10,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
(3) 013774 012737 014122 001360 MOV #TST11,NEXT s;POINT TO THE START OF THE NEXT TEST 
(1) 014002 013700 002056 MOV DZTCR,RO ;SET DEVICE ADDRESS 
(1) 014006 012705 000001 MOV — #TCRO,RS ;SET EXPECTED RESULTS 
(1) 014012 012737 014020 001362 MOV #1$,LOCK sSET FOR SwO9 
(1) 014020 010510 1$: MOV R5, (RO) ;SET THE BIT 
(1) 014022 011004 MOV (RO) ,RS s;READ THE BIT FROM THE DEVICE 
(1) 014024 042704 177400 BIC #*C<377>,R4 :CLEAR HIGH BYTE 
(1) 014030 020504 CMP R5,R4 :WAS BIT OK? 
(1) 014032 001401 BEQ 2$ “BR IF YES 
(1) 014034 104002 ERROR 2 ;*BIT FAILED TO SET. 
(1) 014036 040510 es: BIC R5, (RO) = CLEAR THE BIT 
(1) 014040 011004 MOV (RO) ,R4S “READ THE REGISTER 
(1) 014042 042704 177400 BIC #*C<377>,R4 :CLEAR HIGH BYTE 
(1) 14046 005704 TST R4 “BITS CLEAR? 
(1) 014050 001404 BEQ 3$ ;BR IF YES 
(1) 014052 010546 MOV R5,-(SP) z;SAVE GOOD RESULTS 
(1) 014054 005005 CLR R5 “SET EXPECTED TO 0 
(1) 014056 104002 ERROR >*REPORT BIT NOT CLEAR 
(1) 014060 012605 MOV (SP)+,R5 sRESTORE 
(1) 014062 010510 3$: MOV R5, (RQ) 3;SET THE BIT AGAIN. 
(1) 014064 104413 DEVICE.CLR ; ISSUE DEVICE CLEAR 
(1) 014066 011004 MOV (RO) RS ZREAD THE REGISTER 
(1) 014070 042704 177400 BIC #*(<377>,R4 :CLEAR HIGH BYTE 
(1) 014074 005704 TST R4 “BITS CLEAR? 
(1) 014076 001404 BEQ 4$ ;BR IF YES 
(1) 014100 010546 MOV RS,-(SP) ;SAVE GOOD RESULTS 
(1) 014102 005005 CLR R5 “SET EXPECTED TO 0 
(1) 014104 104002 ERROR 2 : *REPORT BIT NOT CLEAR 
(1) 014106 012605 MOV (SP)+,R5 sRESTORE R5 
(1) 014110 104401 4$: SCOP1 ;LOCK ON BIT? SET SwO9=1 
(1) 014112 106305 ASLB R5 > CHANGE TO NEXT BIT 
(1) 014114 001341 BNE 1$ ; CONTINUE TESTING 
(1) 014116 005037 001362 CLR LOCK s;MAKE SURE TIGHT LOOP IS CLEANED UP 
8654 seakkkkkkkkkekkeeeerkenee TEST 1] RRR ARR ERAEEAKE REE EE 
(1) :*THIS TESTS THAT ALL OF THE FOLLOWING 
(1) :*BITS CAN BE: SET, CLEARED, CLEARED BY ‘RESET INSTR *NOT* DEVICE CLEAR °° 
(1) 7 *BITS TESTED ARE: 


———— a ee 
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; 4) -* DTRO, DIR1, DTR2, DIR3, DTR4, DIRS, DIR6, DTR7 
| ) is THIS TEST 1S NOT DONE IF MODULE IS 20MA VERSION 
| a snceasecnasedhidennennenennainnecasennentncsnanesdnanaenqnouses 
(S) 014122 000004 TST11: SCOPE 
<3) 016124 012737 000011 001122 MOVs #111, STSTNM LOAD THE NUMBER OF THIS TEST 
| (3) «016132 012737 014304 001360 MOV #TST12,NEXT *POINT TO THE START OF THE NEXT TEST 
/ (1) 014140 013700 002056 MOV DZTCR,RO >SET DEVICE ADDRESS 
(1) 014144 012705 000400 MOV #DTRO.RS -SET EXPECTED RESULTS 
(1) 014150 012737 014166 001362 MOV #1$,LOCK =SET FOR SWO9 
(1) 014156 105737 001414 TSTB ~—_ EJAFLG _:20MA OR EIA 
(1) 014162 1 1 P 1$ “BR IF EIA 
(1) 014164 104400 ADVANCE “EXIT TEST 
(1) 014166 010510 1$: MOV R5, (RO) *SET THE BIT 
(1) 014170 011004 MOV (RO) RS *READ THE BIT FROM THE DEVICE 
(1) 014172 105004 CLRB = R :CLEAR LOW BYTE 
(1) 014174 020504 CMP RS5,R4 “WAS BIT OK? 
(1) 014176 001407 BEQ 2$ “BR IF YES 
(1) 014200 104002 ERROR 2 -*BIT FAILED TO SET. 
(1) 014202 040510 2$: BIC R5, (RO) =CLEAR THE BIT 
(1) 014206 011004 MOV (RO) RS -READ THE REGISTER 
(1) 014206 105004 CLRB = RS :CLEAR LOW BYTE 
(1) 014210 005704 TST R4 :BITS CLEAR? 
(1) 014212 001404 BEQ 3$ -BR IF YES 
(1) 014214 010546 MOV RS ,-(SP) :SAVE GOOD RESULTS 
(1) 014216 005005 CLR R5 :SET EXPECTED TO 0 
(1) 014220 104002 ERROR 2 -*REPORT BIT NOT CLEAR 
(1) 014222 012605 MOV (SP)+,R5 “RESTORE RS 
(1) 014224 010510 3g: MOV R5, (RO) -SET THE BIT AGAIN. 
(1) 014226 104413 DEVICE.CLR - ISSUE DEVICE CLEAR 
(1) 014230 011004 MOV (RO) RS :READ THE REGISTER 
(1) 014232 105004 CLRB = RS :CLEAR LOW BYTE 
(1) 014234 030510 BIT R5, (RO) ;WAS BIT CLEARED BY DEVICE.CLR? 
(1) 014236 001001 BNE 4$ “BR IF NO (IT SHOULDN'T BE CLEAR) 
(1) 014240 104002 ERROR 2 -*BIT CLEARED BY DEVICE.CLR 
(1) 014242 104401 L$: SCOP1 *LOCK ON BIT? SwO9=1 
(1) 014244 006305 ASL R5 =CHANGE TO NEXT BIT 
(1) 014246 001347 BNE 1$ :IF NOT DONE LOOP 
(1) 014250 012710 177400 MOV #177400, (RO) -SET ALL DIR BITS 
(1) 014254 005005 CLR R5 *CLEAR LOCATION FOR ERROR PRINTOUT 
(1) 014256 005227 000000 S$: INC #0 -ACT DELAY LOOP FOR 
(1) 014262 001375 BNE 5$ =RESET INSTRUCTION 
(1) 014264 000005 RESET - ISSUE A BUS INIT 
(1) 014266 011004 MOV (RO) RS “READ REGISTER 
(1) 014270 105004 CLRB = RG :CLEAR LOW BYTE 
(1) 014272 005704 TST R4 *DTR BITS CLEAR? 
(1) 014274 001401 BEQ +4 :IF YES CONTINUE 
(1) 014276 104002 ERROR 2 - IF NO PRINT ERROR 
(1) 014300 005037 001362 CLR LOCK *MAKE SURE TIGHT LOOP IS CLEANED UP 
8655 SRERRER ERR ER TEST 12 ee ee eae eee eee eeeeeeeeeeeeeeese 
(1) **THIS TEST PERFORMS RESET TESTING é 
(1) **TESTING OF WRITE ONLY OR READ ONLY BIT 
(1) -* TEST BITS ‘'RDONE, BIT11, BTTIO. “BIT9, BIT8, BIT2, BIT) 
(1) * BITO, SILOAL’’ ARE READ ONLY AND THAT TRDY IS 
A} :* SERD UNTIL A LINE IS SELECTED AND MSENAB IS SET. 
"® 
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'MARBRARRABRABRARRARAAASAAAARAARARRARARASRSARSARRARAARRARARASRARARARAR RAR SSS SB | 


re 112: 


1$: 


2$: 


3$: 


4S: 


-_** 
e* 


SCOPE 


#12,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
MTSTI3,NEXT ;POINT TO THE START OF THE NEXT TEST 
+ ai .RO soe ; eoectip Y TO A 
AROONE 8111168171998] 199811898] 1248171 +B170+S1LOAL, 2 (RO) 
(RO) ,R4 ;READ BACK THE BITS 
1$ :BR IF NONE ARE SET. 
2 ;*BITS WERE SET. 
ATRDY, (RO) :ATTEMPT TO WRITE TRDY 
(RO) ,RS ;READ TRDY 
5 sBR IF NOT SET 
ATRDY,R5 :SET EXPECTED BIT 
@DZLPR LOAD LINE 0 
#TCRO,aDZTCR SET TCR BIT 
AMSENAB, (RO) 
AMSENAB ,R5 SET SCAN ENABLE 
;SET COUNTER TO ZERO 
(RO) ,R4 :READ THE REGISTER 
R5,R4 ;BIT SET? 
;BR IF YES 
sSTALL_ TIME 
Re :UPDATE COUNTER 
3$ :BR IF So gpk os NOT DONE . 
2 ;*TRDY NOT SET 


seeeeeekeeeeekeeeeeeeeeee TEST 15 sean aereeeeeeeenekteeee eee nee 


>*THIS TEST PERFORMS RESET TESTING AND 
:*TESTING OF READ ONLY AND WRITE ONLY BITS 


;* IN RE 


:*VERIFY THAT “‘TIE'', 


GISTER DZCSR 


"“SILOEN'’, “RIE*', ‘MSENAB’’, ‘MAINT’ 


:*ARE THE ONLY R/W BITS IN THE DZCSR 
:*THEN VERIFY THAT A RESET WILL CLEAR THESE BITS 
:*THIS TEST ALSO CHECKS BYTE OPERATIONS ON THE CSR 


TEST 13 


RRA ARAAAAAAARAAAAAAERAAAAAAAARAAAAARAHARAEAAARAAAAAAAARARAAAARAARERERS EH 


TS113: 


SCOPE 
MOV 

MOV 
DEVICE.C 


#13,.$TSTNM LOAD THE NUMBER OF THIS TEST 

OTST TO MENT :POINT TO THE START OF THE NEXT TEST 
L 

DZCSR,RO ;SET UP FOR ERROR MESSAGE 

#*C<DCLR>, (RO) sTRY TO WRITE 


ATIE!SILOEN!RIE!MSENAB!MAINT,R5 ;MAKE EXPECTED 


(RO) .R : ACTUAL 

R4, Re -C(MP EXPECTED VS ACTUAL 
1$ sYES 

2 :*NO 

(RO) “CLEAR LOWER BYTE OF CSR 


R5 =SET EXPECTED 

(RO) RG “READ CSR BITS 

R4 RS “COMPARE ACTUAL TO EXPECTED 
3$ “BRANCH IF SAME 


SEQ 0070 


CZ2b2 
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012705 
011004 
020605 
001401 
104002 
012710 
005005 
005227 
001375 
000005 
011004 


001401 
104002 


000014 
0144642 


002046 
177777 
104000 


165220 


000015 001122 
014726 001360 


002062 


001322 
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ERROR 2 : OTHERWISE PRINT ERROR 
3g: MOV #*C<DCLR>, (RO) =RESET CSR BITS 

fLRB = @HDZCSR -CLEAR HIGH BYTE OF CSR 

MOV #RIE'MSENAB | MAINT 2R R5 

ET RS TO EXPECTED RESULTS 

MOV (RO) RG ‘READ CSR 

CMP 4,25 sACTUAL = EXPECTED? 

BEG os “BRANCH IF SAME 

ERROR 2 “OTHERWISE PRINTOUT ERROR 
4$: MOV #*C<DCLR>, (RO) “RESET CSR BITS 

CLR R5 =SET RS TO EXPECTED RESULTS 
S$: INC #0 “DELAY TIMER FOR 

E 5$ “ACT=11 COMPATIBILITY 
RESET : ISSUE BUS INIT 
MOV (RO) RS “READ CSR REGISTER 


BEG 2$ ;BRANCH IF CSR IS CLEAR 
ERROR 2 : IF NOT PRINT ERROR 


$: 
. seeeeneweneeeeeeeeeeanaee TEST 14 saanaararaaaaanaareeeaeenenene 
;*THIS TEST PERFORMS RESET TESTING AND 
>*TESTING OF READ ONLY REGISTER DZRBUF 
weal Gar TESTING OF WRITE ONLY REGISTER DZLPR 
+ RARER RRR RE REAR E EERE EEE R ERR R REE RERER EER RERE EERE RR ERE RE EERE EER 
TST14: SCOPE 
MOV #14,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
MOV MTST1S,NEXT ;POINT TO THE START OF THE NEXT TEST 
DEVICE.CLR ;CLEAR D211 
MOV DZRBUF ,RO ;SET UP FOR ERROR MESSAGE 
MOV (RO) RS ;SET EXPECTED 
MOV #-1 s@DZLPR : TRY TO WRITE ALL 1°S 
MOV (RO) ,R ACTUAL 
BIC #DVALID: BIT11.R5° :DITTO | 
CMP R4,R5 ;CMP ACTUAL VS EXPECTED 
BEQ 1$ :IF YES,GO CONTINUE PROCESSING 
ERROR 2 ;*ERROR- BIT PATTERN NOT CORRECT 
1$: MOV R4,R3 ;GET A COPY OF THE ACTUAL BIT PATTERN 
COM R3 ;GET THE LOGICAL INVERSE OF THE BIT PATTERN 
MOV R3,aDZLPR ;TRY TO WRITE 
MOV (RO) ,R4 ; ACTUAL 
CMP R4,R ;CMP ACTUAL VS EXPECTED 
BEQ 2$ sIF YES, GET OUT OF THIS TEST 
- ERROR 2 ; *NO 


peeeeeeeeeeeeeeeererenene TEST 15 seeenaaneeeeneeraeneeeenerenees 
;*THIS TEST PERFORMS RESET TESTING AND 
;*TESTING OF READ ONLY REGISTER DZMSR 

ect St TESTING OF WRITE ONLY REGISTER DZTDR 


- SSAA AAAAAAAAEAHARAAARAAAAAAAARARAARERAARAAEAAAAAAAAAAAAAAARAAAAHe HSE 


TST15: SCOPE 
MOV #15, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
MOV #TSTI6,NEXT sPOINT TO . START OF THE NEXT TEST 
DEVICE.CLR CLEAR D211 
MOV DZMSR ,RO SET UP FOR ERROR MESSAGE 
MOV (RO) RS ;SET EXPECTED 


SEQ 0071 
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165170 MOV #-1,aDZTDR sTRY TO WRITE ALL 1°S 
MOV (RO) RG s ACTUAL 
Mp R46 RS ;CMP ACTUAL VS EXPECTED 
BEG 1$ 31F YES,GO CONTINUE PROCESSING 
ERROR 2 > *ERROR= BIT PATTERN NOT CORRECT 
1$: MOV RL RS ;GET A COPY OF THE ACTUAL BIT PATTERN 
COM R3 ;GET THE LOGICAL INVERSE OF THE BIT PATTERN 
MOV R3,aDZTDR ; TRY TO WRITE 
MOV (RO) RS > ACTUAL 
CMP R4 RS :CMP ACTUAL WS EXPECTED 
BEQ 2$ 31f VES, GET OUT OF THIS TEST 
ERROR 2 3 
c$: 
perteeenaneneecerereenanan TEST 16 seeenaneeeeneenareeserenterere 
;*VERIFY THAT IF WE ARE IN ‘‘STAGGERED’’ MODE 
;*THAT SETTING 'DTR’’ FOR A LINE WILL 
7*RBRING UP "RING’’ AND ‘‘CARRIER'’ FOR THE 
> *ASSOCIATED LINE IN WHICH WE ARE STAGGERED! 
;* LINEO DTR= LINE? RING AND CARRIER 
3* LINE? DTR= LINEO RING AND CARRIER 
3* LINE2 DTR= LINE3 RING AND CARRIER 
3* LINES DIR= ari ING AND CARRIER 
s:® TEST 16 
; Cte eeweeaereeeaeaeteraeeteteereeeeeeneaeeeetaheeeeeeretneeenaees 
TST16: SCOPE 
061122 MOV #16,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
001360 MOV @TSTI7 NEXT sPOINT TO THE START OF THE NEXT TEST 
001362 MOV #1$,L0CK ;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
TSTB EIAFLG sEIA OR 20MA? | 
BPL 10$ ;BR IF EIA 
ADVANCE sEXIT TEST 
10S: MOV DZMSR RO ;SET REGISTER 
DEVICE.CLR : INIT D217 
CLR R3 ;ZERO LINE NUMBER 
MOV #1,R2 ;SET POINTER 
TST MODE ;ARE WE IN STAGGERED MODE? 
BM] 1$ :YES WE ARE! 
001126 MOV NEXT. SLPADR SLEAVE THIS TEST! NOT STAGGERED 
ME 2$LPADR SEIT 
1$: BITA R2. LINE ;TEST THIS LINE? 
BNE 3$ VES 
23: INC a? SLINE @ 
ASLB R2 :GET NEXT LINE 
BCC 1$ sKEEP TESTING 
ADVANCE ZADVANCE THIS TEST 
*$: MOV RO RS ;SAVE BINARY BIT FOR LINE @ 
BiT #BITO,RS 7GET STAGGERED COMPANION | INE 
BEQ 4$ 7BR IF LINE EVEN 
ASR aS sADJUST LINE 
BA S$ : 
4$: ASL R4 : ADJUST LINE 
S$: CLR as SSET EMPECTED 


a —————— 


~ ~ _ - _ - —- 


1 6 
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C7DZ4=G0 
CZDZAG.P11 24-JUN“81 09:4 CZDZA DZ11 DEVICE DIAGNOSTICS. 
8738 015054 1504605 BIB RS RS ‘ 
8739 015056 000305 SwAB RS ; 
8740 015060 150605 31S8 RS RS : 
8741 015062 150277 164772 61S8 R2,@HDZTCR sSET DIR 
8742 015066 1046414 DELAY ;CABLE DELAY 
8743 015070 011004 MOV (RO) RS SREAD MSR REGISTER 
8744 915072 020506 CMP RS RS 30K? 
— 8765 015076 001401 BEG 6$ VES 
— «87466 015076 10400 ERROR 2 7*ERROR IN RING OR CARRIER 
' 8747 015100 140277 164754 6$: BICB R2,@HDZTCR 7CLEAR DIR 
8748 015106 104414 DELAY ; CABLE DELAY 
| 8749 015106 011006 MOV (RO) , RG ;READ MSR 
8750 015110 001402 BEG 7$ 7BR IF THEY CLEARED 
87571 015112 005005 CLR R5 sSET EXPECTED TO 0 
8752 015116 106002 ERROR 2 :*BITS NOT CLEARED 
8753 015116 1064C1 7$: SCOP? ;LOCK ON SIGNAL? 
8754 015120 000741 BR e$ > CONTINUE TEST 
7 peeeeeneeereserereeerenee TEST 17 aeeeeeeereeeeeeeseeeeeesereeee 


T*TEST TO VERIFY THAT IF IN ‘EXTERNAL’ 

>*MODE; SETTING DIR FOR SELECTED LINES 

;*WILL BRING UP “‘CARRIER’* AND “RING 

s*FOR THAT SAME LINE. NOTE: IF YOU HAVE 

>*SELECTED MODE AS EXTERNAL’: THE H325 TEST CONNECTER 
;*MUST BE USED ON ALL SPECIFIED LINES. 

s*LINES MAY BE SPECIFIED BY SwRO5=1 

7*AND SWROO=1 AT START TIME OR ALTERING 


s*®STATUS MAP. 
3: TEST 17 
5 S eeeeeecanaenaanenananasecercenananeagagaaeeaesaaggaraeeererqeerenseooere 
7™ST17: SCOPE 
000017 001122 MOV #17,$TSTNM LOAD THE NUMBER OF THIS TEST 
015260 001360 MOV #TST2O.NEXKT : BOINT TO THE START = THE NEXT TEST 
015174 001362 MOV #5$.L0CK 7USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
001370 TSTA MODE = EXTERNAL ? 
BM ] 2$ ;sBR IF YES 
1$: ADVANCE sEXIT TEST 
001414 23: TST8 EJAFLG ;vYOU BETTER BE IN 
BM] 1$ EIA MODE FOR THIS TEST. 
002062 MOV DZMSR,.RO ;SET REGISTER 
000001 MOV #1,R2 7SET LINE POINTER 
001 364 3$: BITS R2.,LINE LINE SELECTED? 
BNE S$ “BR IF YES 
4$: ASLB R2 >NEXT LINE 
BCC 3$ : CONT INUE TEST 
ADVANCE sADVANCE THIS TEST 
5$: CLR R5 :SET EXPECTED 
BISA R2,R5 : 
SWAB R5 $ 
BISB R2,R5 3 
164634 BISA R2,@HDZTCR ;SET DTR 
DELAY 7; CABLE DELAY 
MOV (RO) RS ;READ MSR 
CMP RS,RSG sBITS OK? 
BEQ 6$ :BR IF VES 
ERROR 2 ; CARRIER OR RING ERROR 
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;CLEAR DTR 

; CABLE DELAY 

;READ MSR 

:BR IF BITS CLEARED 
:CLEAR EXPECTED LOC. 
*RITS NOT CLEARED. 
;LOCK ON LINE? 

; CONTINUE TEST 


pekeneeeeareeeeeeneeeeeee TEST 2 teananeananenaaeeeeeeaeeeneeee 
:* THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 

;* IS READY TO BE LOADED, AND THAT THE LINE SPECI-~ 

;* FIED IN BITS 8-10 OF DZCSR CORRESPOND | 


IN DZTCR 


'WEReARRRARARARARSRARARASAASARAARARASRAASAARRARRARRARARRRARARARRAR ASRS ARRAS SS SS | 


;LOAD THE NUMBER OF THIS TEST 

:POINT TO THE START OF THE NEXT TEST 
; ISSUE A ‘DEVICE CLEAR’* (RESET) 

:SET POINTER 

;START THE EXPECTED LINE NUMBER AT 0 
:SET UP FOR ERROR PRINTOUTS 

sUSING R2 AS A BIT POINTER, POINT TO LINE 0 
31S THIS LINE SELECTED? 

:1F NO, SKIP THE STARTUP 

;SET THE GO BIT FOR THIS LINE 

;START THE SCANNER 

;SET FOR DELAY 

;TX READY? 

:BR IF YES 


:*TX NOT READY! 
:GET THE LINE POINTED TO BY THE SCANNER 
iS THE LINE NUMBER WHAT a SHOULD BE? 


“POINT TO THE NEXT EXPECTED LINE 

; ISSUE A ‘DEVICE CLEAR" (RESET) 

:ADJUST FOR NEXT LINE 
sPOINT TO THE NEXT LINE.ARE ALL LINES TESTED? 
;IF NOT, GO DO THE NEXT LINE 


skakkkkkkkerkekeeeeeekwee TEST 2] eee eee cee eee eee eee eee eee eee 


550" AND 


TURNED ON 
A TIME. THIS IS THE FIRST TIME ANY 


:*USING SWITCH ae WITH THIS TEST CREATES A TIGHT SCOPE LOOP 


STEADY STREAM OF CHARACTERS. 


24-JUN-81 09:46 PAGE 82-54 
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164616 6$: BICB R2,@HDZTCR 
DELAY 
MOV (RO) RS 
BEQ 7$ 
CLR R5 
ERROR 2 
7$: SCOP 1 
BR 4$ 
3* TO THE LINE SELECTED 
::* TEST 20 
TST20: SCOPE 
000020 001122 MOV #20, $TSTNM 
015404 01360 MOV #TST21,NEXT 
DEVICE.CLR 
002042 MOV DZCSR,RO 
100040 MOV #MSENAB' TRDY,RS 
001372 CLR SAVLIN 
000001 MOV #1,R2 
001 364 1$: BITB R2,LINE 
BEQ 5$ 
164524 2s: BIS R2,aDZTCR 
000040 BIS AMSENAB, (RO) 
CLR R4 
100000 3$: BIT ATRDY, (RO) 
E 4$ 
DELAY 
INC R4 
E 3% 
ERROR 3 
4$: MOV (RO) ,R4 
CMP R4, 
BEQ $ 
ERROR 2 
000400 5$: ADD #400,R5 
DEVICE.CLR 
901372 INC SAVLIN 
ASLB R2 
BCC 1$ 
6$: 
= * TEST TO TRANSMIT ONE p? _ 
= *RECEIVE ONE CHAR ON One 
7*AT A TIME. THE CHAR I 
*ALL SELECTED LINES with BE 
;*ONE AT A 
= *DATA IS CHECKED IN THE RECEIVER 
>*WHICH TRANSMITS A 
s:@ TEST 21 
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eas me ee Owe —_— - - a ee ee ee C+ 


SEQ 0076 
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012737 000021 
012737 015742 
012737 015720 
104417 
013701 001366 
012702 000001 
030237 001364 
001402 
010177 164376 
005201 

06302 
103370 
005037 001372 
012702 000001 
052777 000040 
030237 001564 
001462 
010277 164344 
032777 000200 
001401 
104020 
005005 
032777 100000 
001 
104414 
105205 
001371 
104003 
112777 000252 
013705 001372 
105737 001371 
001406 
006205 
103402 
000261 
000401 
000241 
006105 
000305 
152705 090252 
052705 100000 
500 
ae aee 000200 
104414 
005203 
001371 
04 
017704 164204 


ee ee ae ae eee aes ee eee -_---— — -——_$— — 
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001362 


164342 


164322 


164506 


164312 


164216 





TST21: 


1$: 


2$: 


3$: 
4$: 


S$: 
6$: 


7$: 


8$: 
9$: 
10$: 


11$: 


12$: 


SCOPE 

MOV #21,$TSTNM 
MOV ATST22,NEXT 
MOV #16$,LO0CK 
DCLASM 

MOV PAR ,R1 

MOV #1 ,R2 

BIT Re. LINE 

BEQ 2$ 

MOV R1,@DZLPR 
INC R1 

ASLR Re’ 

BCC 1$ 

CLR SAVLIN 

MOV #1 ,Re 

BIS AMSENAB ,@DZCSR 
BIT R2,LINE 

BEQ 14$ 

MOV R2,aDZTCR 
BIT #RDONE ,@DZCSR 
BEQ 5$ 

ERROR 20 

CLR R5 

BIT ATRDY ,@DZCSR 
BNE 7$ 

DELAY 

INCB R5 

BNE 6$ 

ERROR 3 

MOVB #252,aDZTDR 
MOV SAVLIN,R5 
TSTB MODE +1 

BEQ 10$ 

;WE MUST NOW INVERT THE 
ASR R5 

BCS 8$ 

SEC 

BR 9$ 

CLC 

ROL R5 

SWAB R5 

BISB #252,R5 

BIS ADVALID,R5 
CLR R3 | 
BIT #RDONE ,@DZCSR 
BNE 12$ 

DELAY 

INC R3 

BNE 11$ 

ERROR 4 

MOV @DZRBUF ,R4 
CMP R4,R5 

BEQ 13$ 

ERROR 6 


09:46 PAGE 82-55 


SEQ 0075 


;LOAD THE NUMBER OF THIS TEST 

:POINT TO THE START OF THE NEXT TEST 

;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
;CLEAR DEVICE AND SET MAINT BIT IF I MODE 

;PICK UP PARAMETERS 

;PICK UP INIT POINTER 

a THIS LINE BE SET UP ? 


;SET UP LINE PARAMETERS 

:POSITION POINTER TO THE NEXT LINE 
; "EM ALL ? 

: IF NO, GO SET UP THE NEXT LINE 
:CLEAR LINE # INDICATOR 

“LINE POINTER 

:START SCANNER 

me LINE ? 

:NO 1a UP NEXT LINE 


‘TS REC DONE = 0 ? 
:IF YES, ALLOW TIME FOR TRDY TO SET 
:*REC DONE SHOULD = 


;*TRDY FAILED TO SET! 


;LOAD CHARACTER 


sMAKE EXPECTED LINE # 


31S THIS TEST IN STAGGERED MODE? 


:I1F NOT, SKIP STAGGERED SETUP 
LAST BIT OF THE LINE NUMBER 


;GET THE LAST BIT INTO THE CARRY BIT 
:IF IT IS SET, GO CLEAR IT 


:IF IT IS CLEAR SET IT HERE 

;SKIP THE CLEARING ‘ 

;CLEAR THE CARRY BIT oor ce OF LINE PARITY) 
:GET THE NEW BIT BACK INTO R 

:MOVE THE LINE NUMBER TO THE UPPER BYTE 


:ADD CHARACTER 
;ADD DATA VALID 


:*RDONE FAILED TO SET! 
:LOAD THE VALUE ACTUALLY RECEIVED 
;COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 


:IF YES, GO DO THE NEXT LINE 
;*NO DATA/CONTENTS DID NOT COMPARE 


peau aes 


Ss 
ON we ww Ye Yee ee es I 


8877 
78 


CIDIAG. on 


015650 


015716 
015720 


015740 


015742 


01 
016070 
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000744 


001465 
010277 


001372 


000200 


100000 
000252 


000022 
016270 
016074 


001364 
164040 


001372 
001422 


001462 
002046 
000001 


000040 
001364 


165762 
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164130 


164114 
164130 


001122 
0C1 360 
001362 


001400 
163760 





CN eee 
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13$ SCOP1 
14$ BIC R2,aDZTCR 
15$ INC SAVLIN 
MOV SAVL IN,RO 
ASL R 
ASLB = R2 
BCC 3$ 
CLR R3 
17$: DELAY ; 
INCB eR 
BNE 17$ 
BIT #RDONE ,aDZCSR 
BEQ 18$ 
ERROR 20 


18$: ADVANCE 


;TIGHT SCOPE LOOP FOR THIS TEST. 


16$: BIT #TRDY ,aDZCSR 
BEQ 16$- 
Aye #252,aDZTOR 
BR 14$ 


SEQ 0076 


;CHECK TO SEE IF SWITCH NINE IS SET 
;CLEAR TCR BIT FOR THAT LINE. 

; INC EXPECTED LINE 

:SET UP CHARACTER OFFSET 

;MAKE THE OFFSET A POWER OF TWO 

;SHIFT THE LINE POINTER. ARE WE ALL DONE? 
;I1F NO, GO AROUND AGAIN FOR NEXT LINE 
;THIS CODE HAS BEEN INSERTED 


‘;TO DETECT A PROBLEM FOUND IN FAULT 


: INSERTION. IF AN ERROR OCCURS MORE 
: THAN ee WORD WAS RECIEVED ON 


;GO TO NEXT TEST 


LOOP TRANSMITS CHARACTERS ONLY 
31S TRANSMITTER READY? 


;I1F NOT, WAIT FOR IT 


;LOAD THE CHARACTER 


;LOOP AGIN IF SWO9=1 


sOTHERWISE, GO PICK UP THE TEST NORMALLY 


peakkkexnkeeeek cere ewe eee TEST 22 seer ee RRR EERE EEE 


:* THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 
:*CHARACTERS (FLAG MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 


:*(ONE LINE AT A TIME 


BASED UPON VALID LINES) 


3*THIS IS THE FIRST TIME THAT ALL DATA IS CHECKED 


SAAR KEEEAEEEKEKKEREKEKEKEEKEEREKRKEEAEEEAEEREEKEKEKEKKKEREEEE 


zie TEST 22 
TST22: SCOPE 
MOV #22, $TSTNM 
MOV #1ST23,NEXT 
MOV #4$,LOCK 
DCLASM 
MOV PAR,R1 
MOV #1,R2 
1$: BIT R2,LINE 
BEQ 2$ 
MOV R1,@DZLPR 
2$: INC R1 
ASLB R2 
BCC 1$ 
CLR SAVLIN 
MOV #TDO,RO 
CLR (RO) + 
CMP #STOP,RO 
BNc -6 
CLR RO 
MOV DZRBUF ,REGIST 
MOV #1,R 
BIS onSENAB, aDZCSR 
3$: BIT ng gL IN NE 
BEQ 
MOV 83 aDZTCR 


;LOAD THE NUMBER OF THIS TEST 

sPOINT TO THE START OF THE NEXT TEST 

;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
:CLEAR DEVICE AND SET MAINT BIT IF 
;PICK UP PARAMETERS 

;PICK UP INIT POINTER 

—— THIS LINE BE SET UP ? 


=SET UP LINE PARAMETERS 
:POSITION POINTER TO THE NEXT LINE 


I MODE 


;GOT ‘EM ALL ? 

:IF NO, GO SET UP THE NEXT LINE 
:CLEAR LINE # INDICATOR 

:POINT TO THE DATA AREA 

;CLEAR A ee WORD 

:FINISHED ? 


:NO 

:CLEAR OFFSET 

;SAVE FOR ERROR MSG 
;LINE POINTER 

: START SCANNER 


:VALID LINE ? 
:NO SET UP NEXT LINE 
;SET TCR BIT 





a = ee mm mmm . -— —— _— 
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8887 016074 032777 000200 163740 4$: BIT MRDONE,@DZCSR = ;IS REC PONE = 0 ? 
8888 016102 001401 BEQ 5$ :IF YES, ALLOW TIME FOR TRDY TO SET 
8889 016104 104020 ERROR 20 :*REC DONE SHOULD = 0 
8890 016106 005005 5$: CLR R5 
8891 016110 032777 100000 163724 6$: BIT #TRDY,@DZCSR 
2 016116 001004 BNE 7$ 
88935 016120 104414 DELAY 
8894 016122 105205 , INCB R5 
8895 016124 001371 BNE 6$ 
8896 016126 104003 ERROR 3 ;*TRDY FAILED TO SET? 
8897 016130 116077 001422 163750 /7$: MOVB TDO(RO) ,@DZTDR ;LOAD CHARACTER 
8898 016136 013705 001372 MOV SAVLIN,RS5 sMAKE EXPECTED LINE &# 
8899 016142 105737 001371 TSTB MODE +1 ;I1S THIS TEST IN STAGGERED MODE? 
a3 016146 001406 BEQ 10$ ;I1F NOT, SKIP STAGGERED SETUP 
a8 ;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 016150 006205 ASR R5 ;GET THE LAST BIT INTO THE CARRY BIT 
(1) 103402 BCS 8$ ;IF IT IS SET, GO CLEAR IT 
(1) 000261 SEC :IF IT IS CLEAR SET IT HERE 
(1) BR 9$ :SKIP THE CLEARING 
(1) 8$: CLC ;CLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
006105 9$: ROL R5 ;GET THE NEW BIT BACK INTO R5 
000305 10$: SWAB R5 sMOVE THE LINE NUMBER TO THE UPPER BYTE 
156005 001422 BISB TDO(RO) ,R5 ;ADD CHARACTER 
052705 100000 BIS ADVALID,R5 sADD DATA VALID 
005003 CLR R3 
032777 000200 165634 11$: BIT en 
104414 DELAY 
005203 INC R3 
BNE 11$ 
104004 ERROR 4 ;*RDONE FAILED TO SET! 
017704 163622 12$: MOV @DZRBUF ,R4 ;l.0AD THE VALUE ACTUALLY RECEIVED 
020405 CMP R4,R5 ;COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
BEQ 13$ ;IF YES, GO DO THE NEXT LINE 
ERROR 6 ;*NO DATA/CONTENTS DID NOT COMPARE 
13$: SCOP1 ;CHECK TO SEE IF SWITCH NINE IS SET 
105260 001422 INCB TDO(RO) ; INCREMENT BINARY PATTERN FOR THIS LINE 
001315 BNE 4$ :GO "ROUND AGAIN FOR NEXT CHARACTER 
040277 163610 14$:-.. BIC R2,aDZTCR ;CLEAR TCR BIT FOR THAT LINE. 
005237 001372 15$: INC SAVLIN :INC EXPECTED LINE 
013700 001372 MOV SAVLIN,RO ;SET UP CHARACTER OFFSET 
006300 ASL RO sMAKE THE OFFSET A POWER OF TWO 
106302 ASLB R2 :SHIFT THE LINE POINTER. ARE WE ALL DONE? 
103277 BCC 3$ :I1F NO, GO AROUND AGAIN FOR NEXT LINE 
005037 001362 CLR LOCK “MAKE SURE LOCK IS CLEAR FOR NEXT TEST 


pkkkakkeckckaekereeaeneete TEST 25 cee e eee eee eee eee eee ee eee eee 


:*THIS TEST WILL PROVE THAT EACH RECEIVING LINE CAN 
;*BE DISABLED BY SETTING THE RCVON BIT TO ZERO 
;*FOR EACH LINE IN THE LPR REGISTER. IT ALSO 
> *VERIFIES THAT MASTER CLEAR WILL ZERO DVALID F.OR 
res} GHARAC TERS STORED IN THE SILO. 
2°¢ 
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000023 001122 
016622 001560 
001420 


001372 


henece 
000040 163452 


163444 


163430 
000001 
177770 


163412 
001420 


163404 


163364 


163334 
001372 
163324 


177770 
001372 
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+ TARRRBASAAAAAALAALARARAASAARRAARARARARARARARARARARARRRRARASASAR RAS SSS | 


TST23: 


1$: 


4$: 


20$: 


21$: 


6$: 


7$: 
8$: 


10$: 


SCOPE 


#23,$TSTNM 
#TST24,NEXT 
DONFLG 
SAVLIN 

PAR ,R1 
#RCVON,R1 
#1,R2 

a) are 


R5 
@DZCSR 
5$ 


#*°C<7>._R5 
$ 


6 
R3,aDZTCR 
3$ 


DONF LG 
12$ 


7$ 
R1,@DZTDR 
R3,R2 


@DZTCR 
R5 

R5 

8$ 
@DZCSR 
10$ 
SAVLIN 
20 - 


aDZRBUF ,R4 
ue 


4 
#*C<7>,RG 
R4,SAVLIN 


LOAD THE NUMBER OF THIS TEST 
“POINT TO THE START OF THE NEXT TEST 
s INITIALIZE FOR FIRST TEST LOOP 
:ZERO LINE NO. FOR ERROR REPORT 
sEXECU;E MASTER CLEAR 
;STORE DEFAULT poetdove 


INTER 

;LOAD LINE PARAMETER REGISTER 
;SET R1 FOR NEXT LINE 

:SHIFT R2 TO NEXT LINE 

:ALL LINES LOADED? 

;LOAD TRANSMITTING CHARACTER 
sCOPY ACTIVE LINE BITS 

:LOAD TCR BITS 
:SET SCANNER 

; INIT DELAY COUNTER 

:TRDY SET? 

:IF YES BRANCH 

: IF NOT THEN WAIT 

; INCREMENT DELAY COUNTER 
:DELAY DONE? 

;IF YES TRDY FAILED TO SET 
:MOVE LINE NO. INTO R5 
: INIT TCR POINTER 

; ISOLATE LINE NO. 

;IF LINE 0 GO TEST TRANSM. FLAG 
:POINT R3 TO NEXT TCR BIT 
;DECREMENT RS UNTIL R3 POINTS 
:TO CORRECT TCR BIT 


sHAS THIS LINE BEEN SERVICED? 


;I1F NOT GO SEND CHARACTER 

;IF YES CLEAR TCR BIT 

;IF MORE LINES SEi BRANCH 

;IF ALL LOADED IS THIS SECOND PASS 

;IF YES BRANCH TO SECOND PART OF TEST 

: OTHERWISE CONTINUE WITH FIRST PART 
RANSMIT CHARACTER 

‘CLEAR FLAG FOR THIS LINE 

:GO WAIT FOR NEXT LINE 


:CLEAR TCR BITS 

;CLEAR DELAY COUNTER 

;WAIT FOR LAST CHARACTER 

; INCREMENT DELAY COUNTER 

;IF NOT FINISHED CONTINUE WAITING 
;RDONE BIT SET? 

;1F NO CONTINUE 

;IF YES SET LINE NO. TO ZERO 

;AND PRINT ERROR 


sREAD SILO 
i IF oe tek” ZERO BRANCH 


IF SET 
; ISOLATE LINE NO, IN 
:SET SAVLIN FOR ERROR REPORT 


SEQ 0078 


— eee se i 
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016536 104017 ERROR 17 ;DATA VALID SHOULD NOT BE SET 
016540 000766 10$ ;GO READ SILO AGAIN 
016542 105237 001420 11$: INCB DONF LG ;PREPARE FOR SECOND PART OF TEST 
016546 013701 001366 MOV PAR ,R1 s;MOVE DEFAULT PARAMETERS TO R1 
016552 BR 1$ ;GO LOAD LPR REGISTER 
016554 005005 12$: CLR R5 ; INIT DELAY COUNTER 
016556 104414 13$: DELAY “WAIT ,OR LAST CHARACTER 
016560 005205 NC R5 -TO BE RECEIVED 
016562 001375 BNE 13$ ;DELAY FINISHED? 
016564 104413 DEVICE.CLR ;I1F YES EXECUTE MASTER CLEAR 
016566 000240 NOP 
016570 000240 
016572 105777 163244 TSTB @aDZCSR ;RDONE SET? 
016576 BPL 14$ 7 IF NOT BRANCH 
16600 005037 001372 CLR SAVLIN ‘TF YES THEN PRINT OUT 
016604 104020 ERROR 20 PORT 
016606 017704 163234 14$: MOV @DZRAUF ,R4S “READ SILO 
016612 100003 BPL 15$ ;DATA VALID SET? 
016614 005037 001372 CLR SAVLIN : IF YES THEN PRINT OUT 
016620 104017 ERROR 17 ;ERROR REPORT 
016622 15$: 
PARRA REET REE TEST 2h eee eee eee eeeeeeeeetkeeneeeee 
s*THIS TEST WILL PROVE THAT: 
3* 1) THE TRANSMITTER ‘BREAK BIT'’ WORKS 
3* 2) THE RECEIVER CAN FLAG ‘FRAMING ERRORS'' 
3* 3) THE RECEIVER CAN FLAG ‘PARITY ERRORS*' 
>*ONLY ONE LINE AT A TIME WILL BE EXERCISED. 
s*THIS TEST WILL NOT BE EXERCISED UNLESS 
“es BY AN H325, H3271, OR H3190 CONNECTOR 
TOA IIIS IOS IOIUIOIUIIOIIOIUIDIUIUUIIOIOIIUIIIUIIOI IOI it ttn 
016622 004 TST24: SCOPE 
016624 012737 000024 001122 MOV #24, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
016632 012737 017100 001360 MOV ATST25,NEXT =POINT TO THE START OF THE NEXT TEST 
016640 012737 016736 001362 MOV #3$,LOCK ;SET FOR LOOP 
016646 005737 001370 TST MODE = ARE WE RUNNING IN INTERNAL MODE? 
016652 001510 BEQ 12$ 7;I1F SO, SKIP THIS TEST 
016654 104417 DCLASM -CLEAR DEVICE AND SET MAINT BIT IF I MODE 
016656 013701 001366 V PAR,R1 PICK UP PARAMETERS 
016662 052701 000300 BIS HODDPAR! PARITY, Ri ;FORCE ODD PARITY 
01 012700 000001 MOV #1,R :PICK UP INIT POINTER 
016672 030037 001364 1$: BIT RO,LINE SHOULD THIS LINE BE ry UP ? 
016676 001402 BEQ 2$ 31F NOT,DON'T SET IT U 
016700 010177 163146 MOV R1,aDZLPR “OTHERWISE, SET UP LINE PARAMETERS 
016704 005201 2$: INC R1 
016706 106300 ASLB RO :;GOT "EM ALL ? 
016710 103370 BCC 1$ NO 
016712 5037 001372 CLR SAVLIN ;CLEAR LINE @ 
016716 012702 000001 MOV #1,R2 ’ sLINE POINTER 
016722 052777 000040 163112 BIS #MSENAB,@DZCSR ;SET MASTER SCAN ENABLE 
010730 013737 002046 001400 MOV DZRBUF ,REGIST ;SAVE FOR ERRR MESSAGE 
016736 030237 001364 3$: BIT R2,LINE t 
016742 001446 BEQ 11$ 
016744 010277 163106 MOV R2,aDZTCR ;SET TCR BIT 
016750 110277 163114 MOVB R2,@HDZTDR ;SET BREAK BIT 


mm ee es 


oc 


i 
¢ 
j 
| 


SA A SS A 


DIAG. 6oP11 


BOLLE LOE LIL LOO LOL 
S knuragiapaeaacarnaatapa eee 


Ws 


016754 


016772 


016774 
016776 
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112777 


005037 


113777 


000377 
091372 
001371 


130000 
000200 


165002 


163012 
001372 
162766 


001 362 


000025 
017410 


001 366 
000001 
001364 


162710 


001372 
027532 
001364 
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163104 


163014 


001122 
001 360 


162670 


4$: 


S$: 
7$: 


ae 4 
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— 


C 
SEQ 0080 


MOVB #377, aDZTDR ;LOAD CHARACTER 
MOV SAVLIN,RS5 sMAKE EXPECTED DATA 
TSTB MODE +17 ;IS THIS TEST IN STAGGERED MODE? 
BEQ 7$ ;I1F NOT, SKIP STAGGERED SETUP 
;WwE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
ASR R5 ;GET THE LAST BIT INTO THE CARRY BIT 
BCS 5$ sIF IT IS SET, GO CLEAR IT 
SEC ;IF IT IS CLEAR SET IT HERE 
BR 6$ ;SKIP THE CLEARING 
CLC ;CLEAR THE CARRY BIT CINVERSION OF LINE PARITY) 
ROL R5 :GET THE NEW BIT BACK INTO R5 
SWAB R5 :PUT LINE NUMBER IN UPPER BYTE 
ot #DVAL ID !PARER! FRMERR. RS ;ADD EXPECTED 
L 
BIT A#RDONE ,aDZCSR 
BNE 9$ 
DELAY 
INC R4 
BNE 8$ 
ERROR 4 ;*RDONE FAILED TO SET! 
MOV @DZRBUF ,R4 SAC TUAL 
CMP R4,R5 ;CMP ACTUAL VS og? aes DO THEY MATCH? 
BEQ 10$ ;IF YES, GO CLEAN UP 
ERROR 6 = *DATA/CONTENTS FAILED TO COMPARE 
CLRB @HDZTDR ; CLEA? BREAK BITS 
SCOP1 LOOP? 
INC SAVLIN :INC LINE # 
BIC R2,a@DZTCR :CLEAR TCR BIT 
ASLB R2 
BCC 3$ 
CLR LOCK sMAKE SURE LOCK IS CLEAR FOR NEXT TEST 


TTT ititt ttt titi titi t tt TEST 


C5 RARER ERRRERRER REE 


:* THIS TEST VERIFIES THAT THE DEVICE DOES — INTERRUPT 
:*WHILE THE PROCESSOR STATUS IS SET EXACTL 
:*TO WHAT THE DZ11 PRIORITY IS SET TO. 


;*DEFAULT PRIORITY IS AT 
TEST 25 


5 (240). 


'WROAALAAAASASLALAALASAASLARAASRAASAASLAAASLASSAASRARARARSARARRARRRARSSSRSS SSS & | 


S125: 


2$: 





SCOPE 


425, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
ATST26,NEXT sPOINT TO THE START OF THE NEXT TEST 
;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
PAR ,R1 :PICK UP PARAMETERS 
#1,R2 :PICK UP INIT POINTER 
~ Tai : SHOULD THIS LINE BE SET UP ? 
R1,@DZLPR ;SET UP LINE PARAMETERS 
:POSITION POINTER TO THE NEXT LINE 
R2 :GOT "EM ALL 7 
1$ :I1F NO, GO SET UP THE NEXT LINE 
SAVLIN ;CLEAR LINE # INDICATOR 
@ADZPRT SET CPU STATUS TO DZ1i PRIO, 
LINE ,@DZTCR sENABLE THE VALID LINES 


eee eee 


me 


— ——_ —- = ee ae ew ww ee - — ee ee -_ > -< ———— 


| 
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(2) 017166 012777 017256 162702 MOV #6$,aDZTIV 7;SET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 017174 012777 017264 162670 MOV #7$,aDZRIV ;SET UF THE RECEIVER INTERRUPT VECTOR 
(2) 017202 013777 027532 162664 MOV DZPRT,a@DZRIS ;SET. THE INTERRUPT VECTOR STATUS 
(2) 017210 013777 027532 162662 MOV DZPRT ,aDZTIS 3;SET TRANSMITTER INTERRUPT PRIORITY 
(2) 017216 052777 040060 162616 BIS ATIE!MSENAB,@DZCSR ; ENABLE THE DEVICE 
(1) 017224 005005 CLR R5 
| (1) 017226 032777 100000 162606 4$: BIT #TRDY,aDZCSR 
(1) 017234 001403 BEQ 5$ 
(1) 017236 000240 NOP 
(1) 017240 000240 NOP 
(1) 017242 000412 BR 8$ 
(1) 017244 104414 5$: DELAY 
(1) 017246 005205 INC R5 
(1) 017250 001366 BNE 4$ 
(1) 017252 104003 ERROR 3 ;*TRDY NOT SET! 
(1) 017254 000405 BR 8$ 
(1) 017256 104010 6$: ERROR 10 3 * TRANSMITTER SHOULD NOT INTERRUPT 
(1) 017260 022626 CMP (SP) +, (SP)+ ;POP FOR FAKE RTI 
(1) 017262 000402 BR 8$ ; CONTINUE TEST 
(1) 017264 104012 7$: ERROR 12 ;*RECEIVER SHOULD NOT INTERRUPT 
(1) 017266 022626 CMP (SP)+, (SP) + ;POP FOR FAKE RTI 
(1) 017270 042777 040000 162544 88: BIC ATIE,aDZCSR ;RESET TRANSMITTER INTERRUPT ENABLE 
(2) 017276 012777 017374 162572 MOV #11$,aDZTIV 7;SET UP THE TRANSMITTER INTERRUPT VECTOR 
(2) 017304 012777 017402 162560 MOV #12$,aDZRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 
(2) 017312 013777 027532 162554 MOV DZPRT,aDZRIS ;SET THE INTERRUPT VECTOR STATUS 
(2) 017320 013777 027532 162552 MOV DZPRT,aDZTIS 3;SET TRANSMITTER INTERRUPT PRIORITY 
(2) 017326 052777 000140 162506 BIS MRIE'MSENAB,@DZCSR ;ENABLE THE DEVICE 
(1) 017334 113777 001422 162524 MOVB TDO,@DZTDR ;PUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER 
(1) 017342 005005 CLR R5 
(1) 17344 032777 Q00200 162470 9$: BIT #RDONE ,@aDZCSR 
(1) 017352 001403 BEQ 10$ 
(1) 017354 000240 NOP 
(1) 017356 000240 NOP 
(1) 000412 BR 135$ 
(1) U17362 104414 10$: DELAY 
(1) 017364 005205 INC R5 
(1) 017366 001366 BNE 9$ 
(1) 017370 104004 ERROR 4 >*NO RX DONE! (NOT SET) 
(1) 017372 000405 BR 13$ ; CONTINUE TEST 
(1) 017374 104010 11$: ERROR 10 3* TRANSMITTER SHOULD NOT INTERRUPT 
(1) 017376 022626 CMP (SP)+,(SP)+ ;POP FOR FAKE RTI 
(1) 017400 000402 BR 13$ sCONT TEST 
(1) 017402 104012 12$: ERROR 12 s*RECEIVER SHOULD NOT INTERRUPT 
(1) 017404 022626 CMP (SP)+,(SP)+ ;POP FOR FAKE RTI 
(1) 017406 13$: 
(2) 017406 104413 DEVICE.CLR ISSUE DEVICE CLEAR (RESET) 
9063 saakkkkkaekkkkekeeeekeeee TEST CE RERRRERREREEEEREEERAEEET REED 
(1) 3* THIS TEST VERIFIES THAT THE DEVICE DOES INTERRUPT 
(1) s*WHILE THE PROCESSOR STATUS IS SET TO EXACTLY 
(1) >*ONE LEVEL LOWER THAN THE DZ11. DZ11 PRIORITY 
(1) ;*DEFAULT TO LEVEL 5S MINUS ONE LEVEL IS LEVEL 4. 
(3) z:* TEST 26 
(6) SLR EERE EEE EERE EERE REE REE REE REE ERE RE 
(5) 017410 000 TST26: SCOPE 
(3) 017412 012737 000026 001122 MOV #26,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
(3) 017420 012737 017736 001360 MOV ATST27,NEXT sPOINT TO THE START OF THE NEXT TEST 





mms a 


os 


LL OR RN OO ON ON OR RF RR BN NBN RO OR RO OLB OS RFR FR FRO FR 
ee ee ee ee ae ee, ie 


017430 


mm es 


113777 
012777 


104010 
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001366 
000001 
001 364 
162400 


001372 
027534 
001364 


017570 


040000 
027534 


040000 


000200 
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162360 
162372 


162276 


162242 


162222 


162202 
162146 


oe eee 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 
8$: 


9$: 


10$: 


11$: 


_— ——— -- — 


SEQ 0082 


;CLEAR DEVICE AND SET MAINT BIT IF | MODE 
:PICK UP PARAMETERS 

;PICK UP INIT POINTER 

;SHOULD THIS LINE BE SET UP ? 


3NO 

;SET UP LINE PARAMETERS 

sPOSITZON POINTER TO THE NEXT LINE 
;GOT "EM ALL ? 

; IF NO, 
s;CLEAR LINE #4 INDICATOR 

s;MAKE CPU ONE LEVEL LOWER THAN DZ11 
ZENABLE THE VALID LINES 


;SET UP THE TRANSMITTER INTERRUPT VECTOR 
;SET UP THE RECEIVER INTERRUPT VECTOR 
;SET THE INTERRUPT VECTOR STATUS 

;SET TRANSMITTER INTERRUPT PRIORITY 


GO SET UP THE NEXT LINE 


de acmatae tartan sENABLE THE DEVICE 


3 * TRANSMITTER FAILED TO INTERRUPT 


;*TRDY NOT SET! 


:REMOVE THE INTERRUPT FROM THE STACK 
; DON'T 


LET ANY MORE INTERRUPTS OCCUR 
sMAKE CPU ONE LEVEL ar THAN DZ11 
;RETURN TO THE NORMAL FLOW 
;*RECEIVER SHOULD NOT INTERRUPT 

:POP FOR FAKE RTI 


:RESET TRANSMITTER INTERRUPT ENABLE 
:SET UP THE TRANSMITTER INTERRUPT VECTOR 


;SET UP THE RECEIVER ooh ge VECTOR 
:SET THE INTERRUPT VECTOR STATUS 
;SET TRANSMITTER INTERRUPT PRIORITY 


#RIE'MSENAB,@DZCSR ;ENABLE THE DEVICE 


09:46 PAGE 82-62 
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DCLASM 
MOV PAR,R1 
MOV #1,R2 
BIT R2,LINE 
BEQ 
MOV R1,@DZLPR 
INC R1 
ASLB R2 
BCC 1$ 
CLR SAVLIN 
MTPS @ALESS1 
MOVB LINE,a@DZTCR 
MOV #6$,aDZTIV 
MOV #7%$,aDZRIV 
MOV DZPRT,aDZRIS 
MOV DZPRT,aDZTIS 
BIS 
CLR 
BIT #TRDY,@DZCSR 
BEQ S$ 
NOP 
NOP 
ERROR 7 
8$ 
DELAY 
INC RS 
BNE 4$ 
ERROR 3 
RR 8$ 
POP2SP 
BIC #TIE,@DZCSR 
MTPS @ALESS1 
8$ 
ERROR 12 
CMP (SP)+, (SP)+ 
BIC #TIE,aDZCSR 
MOV #11$,aDZTIV 
MOV #12$,aDZRIV 
MOV DZPRT,aDZRIS 
a1 DZPRT ,aDZTIS 
MOVB TDO,aDZTDR 
CLR R5 
BIT #RDONE ,aDZCSR 
BEQ 10$ 
NOP 
NOP 
ERROR 17 
R 13$ 
DELAY 
INC R5 
BNE DS 
ERROR 4 
R 13$ 
FRROR 10 


;PUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER 


s*RECEIVER FAILED TO INTERRUPT 


;*NO RX DONE! (NOT SET) 
; CONTINUE TEST 
;* TRANSMITTER SHOULD NOT INTERRUPT 


ai 


noc 


ee ee ee eee 


| 
CZDZA=GO 
—CZDZAG.P11 


PRP LL LLL LD 
ee ee a a a 


017722 


017736 


020140 
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02262€ 
000403 
022626 
005077 


104413 


104414 


162106 


000027 


020370 


001 366 
000001 
001364 


162052 


001372 


001 564 
001372 


000340 


161750 
161734 


161720 


161704 
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901122 


001 360 


162052 


162036 
161772 


12%: 
13$: 


° 2a 


CMP 


se 
POP2SP 
CLR 
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(SP)+,(SP)+ 
13$ 


@DZCSR 


DEVICE.CLR 


seekkkeankaeeeeeeeeeneaee TEST 27 seeeeaneeeenkeeneeneeeeneenene 


:*THIS TEST VERIFIES THAT THE RECEIVER WILL 


;* INTERRUPT BEFORE THE TRANSMITTER 


7 


;POP FOR FAKE RTI 

;CONT TEST 

;REMOVE THE INTERRUPT FROM THE STACK 
;DON'T ALLOW ANY MORE INTERRUPTS 


; ISSUE DEVICE CLEAR (RESET) 


EVEN 


:* THOUGH THE TRANSMITTER WAS ENABLED 
SET PS TO LEVEL 7; 

;*GET RDONE AND TRDY TO SET; 

>*SET TX IE AND RX IE; 

= *CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 


s*FIRST. 


TEST 27 


Wnt RRRRRRRARRAR SRR RRRARR RAR RRR RRR RAR RRRA RA RR RR RR RRR RR RAR RSS SS S| 


TST2?7: 


1$: 


2$: 


3$: 


4$: 


S$: 


99%: 





#27, $TSTNM 
#TST30,NEXT 


2$ 
R1,@DZLPR 
R1 
R2 
1$ 


SAVLIN 
#8$ ,aDZRIV 


DZPRT, Sante 


@D 7RBUF 


;LOAD THE NUMBER OF THIS TEST 

;POINT TO THE START OF THE NEXT TEST 
;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
:PICK UP PARAMETERS 

;PICK UP INIT POINTER 

— THIS LINE BE SET UP ? 


;SET UP LINE PARAMETERS 

sPOSITION POINTER TO THE NEXT LINE 
;GOT ‘EM ALL ? 

;IF NO, GO SET UP THE NEXT LINE 
;CLEAR LINE #4 INDICATOR 

;SETUP INTERRUPT STUFF 


sLINE POINTER 
;VALID LINE ? 


sSET TCR BIT 


;VALID DATA? 

:I17 BETTER NOT BE SET 

;DATA VALID SHOULD NOT BE ScT 
sRECEIVER DONE ? 


sRECEIVER DONE BIT SHOULD NOT BE SET 
;WAIT FOR TRDY 


;BR IF READY 
sSTALL TIME 


me en es ee ———— _——- = -« ——— ee - —s 


SEQ 0083 


CZ7DZA=GO 


9109 


ed ed a a es sd 
CONAUWUIS WhO 
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104011 
022626 


161712 
000200 


161640 


040000 
000100 
000000 


020336 
161600 


177770 
001371 


001372 


177400 


161530 


_——e 
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100$: 


161656 6$: 


—~— 
Ooo 


—_ —» 


626 
620 


7$: 


8$: 


11$: 


12$: 
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INC R4 

BNE 99$ 
FRROR 3 

CLRB @aDZTDR 
CLR RG 

BIT #RDONE ,@DZ°SR 
BNE 7$ 
DELAY 

NC R4 

BNE 6$ 
ERROR 4 

TST @aDZCSR 
BM] +4 
ERROR 3 


SEQ 0084 


;TRDY FAILED TO SET 


:*RDONE FAILED TO SET: 
vee DONE BIT = 1 
TRANS DONE FAILED d TO SET 


*NO 
:NOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT 
;SET INTERRUPT ENABLES AND WATCH THE FUR FLY 


BIS ATIE,aDZCSR 


BIS MRIE,@aDZCSR 
MTPS #0 
NOP 
NOP 
ERROR 7 > * TRANSMITTER FAILED TO INTERRUPT 
ERROR 17 s*RECEIVER FAILED TCO INTERRUPT 
: CHECK BR LEVEL 
JMP 13$ :GET OUT 
sRECEIVER INTERRUPT ROUTINE 
MOV @DZRAUF ,R4 : ACTUAL 
MOV R4,R3 
SWAB R3 
BIC #*C<7>,R3 :STRIP JUNK 
TSTB MODE +1 :I1S THIS TEST IN STAGGERED MODE? 
BEQ 11$ : IF NOT, SKIP STAGGERED SETUP 
s;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
ASR R3 ;GET THE LAST BIT INTO THE CARRY BIT 
BCS 9$ ;IF IT IS SET, GO CLEAR IT 
SEC IF IT IS CLEAR SET IT HERE 
BR 10$ SKIP THE CLEARING 
CLC :CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
ROL R3 :GET THE NEW BIT BACK INTO R35 
CMP R3,SAVLIN 21S THIS A VALID LINE 
BEQ +4 YES 
ERROR 15 * s INVALID LINE 
BIC #*°C<377>,R4 =STRIP JUNK 
CMPB R5,R4 :DATA COMPARE ? 
BEQ +4 YES 
ERROR 5 = *DATA DOES NOT COMPARE 
BIC R2,aDZTCR = CLEAR TCR BIT 
POP2SP > REMOVE HE INTERRUPT VECTOR FROM THE STACK 


ERROR 
POP2SP 


GET OUT OF INTERRUPT MODE 


BR 13$ ; GO 
ae INTERRUPT SVC ROUTINE 


>THE RECEIVER INTERRUPT FAILED 
:TO OVERRIDE THE TRANSMITTER 
“REMOVE THE INTERRUPT VECTOR FROM THE STACK 


we ee eee ae ——-- --—- —~ 


CZDZ7A=GO 
CZDZAG.P11 
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002100 
161510 


000030 
020556 


000200 
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161476 138: BIC MTIE!RIE,@DZCSR ;CLEAR INTERRUPT ENABLES 
161520 MOV DZRIS,aDZRIV sRESTORE TRAPCATCHER 
CLR aDZRIS 
161512 MOV DZTIS,aDZTIV 
CLR adZT is 
peakeeeeeaeeneeeeeeeneeee TEST 30 xe eaeeae eee eeeeeeeeneeeeneere 
= *TEST TO VESIFY THAT “‘RDONE DOES NOT SET 
;*1F THE SCANNER IS att that 
+ * TURN ON SCANNER, WAIT FOR TRDY 
3* TURN OFF SCANNER, —- A CHARACTER 
*"RDONE SHOULD NOT SET 
s3e TEST 30 
SERRA AERA AERA EERE EEA EERE EERE REEEREREE ERE ERE E RHEE EE 
TST30: SCOPE 
001122 MOV #30, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
001 360 MOV #TS7T31,NEXT s;POINT TO THE START OF THE NEXT TEST 
DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
MOV PAR ,R1 s;PICK UP PARAMETERS 
MOV #1 R22 s;PICK UP INIT POINTER 
7$: BIT R2,LINE ;SHOULD THIS LINE BE SET UP ? 
BEQ 2% NO 
MOV R1,@DZLPR ;SET UP LINE PARAMETERS 
2$: INC R1 sPOSITION POINTER TO THE NEXT LINE 
ASLB R2 ;GOT "EM ALL ? 
BCC 1$ ; IF NO, GO » UP THE NEXT LINE 
CLR SAVLIN CLEAR LINE # INDICATOR 
161370 BIS AMSENAB,@DZCSR ;TURN ON SCANNER 
MOV #1, R2 INIT LINE COUNTER 
3$: BIT R2, L INE sF IND A VALID LINE 
BNE 4$ 3; IF WE FOUND ONE GO TO TEST 
INC SAVLIN ; IF NOT 
ASL R2 7KEEP LOOKING 
BR 3$ 
4$: MOVB Rd, @D7TCR ;SET TCR BIT 
CLR R5 
S$: TST @D7‘ SR 31S TRDY SET 
BM! 6$ ;CON'T TESTING IF I7 IS 
DELAY ;I1F IT NOT WAIT A WHILE 
INC rf 
ERROR 3 ;WE WAITED LONG ENOUGH-ERROR 
1613146 $$: BIC AMSENAB, @DZCSR ; TURN OFF SCANNER 
CLRB aDZTDR : TRANSMIT A CHARACTER 
CLR R5 “CLEAR COUNTER 
7$: DELAY WAIT SUFFICIENT TIME FOR 
INC R5 ;RDONE TO SET 
BNE 7$ 
161272 BIT MRDONE, @DZCSR ;RDONE SET 
BEQ 8$ :17T SHOULDN'T BE-CONT INUE 
ERROR 20 :IF IT IS THERE'S AN ERROR 
8$: ADVANCE 


peaeeeneeneneanerereenene TEST 31 aeeaeeeeeeeeneereeeeererereres 
;*THIS TEST VERIFIES OVERRUN AND SILO ALARM 

;*ONE LINE AT A TIME = BASED UPON VALID LINES 

7*AS EACH OF THE FIRST 16 CHARS ARE SENT; SILO ALARM [5S 

s*TESTED TO BE CLEARED. ON THE 16TH CHAR THE PROGRAM THEN 


oT 


eo —-— = - —— _ ——_— 
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919 

719 

9796 

9195 

7% 

9197 

9199 

(5) 

(4) 020556 000004 

(2) 020560 012737 000031 

(2) 020566 012737 021306 

020574 012737 021210 

920" 104417 

1) 0 013701 001366 
(1) 020610 012702 000001 
FF 020614 = 030237 001 364 


161226 


001372 
001422 


001462 
000001 
010040 
001 364 


021172 
001372 


761142 
161122 


100000 


001422 
001422 
000017 


020000 
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161752 


161106 


161110 


1670664 
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;*EXPECTS SILO ALARM TO SET. 


ey 
SEQ 0086 


THEN THE ENTIRE 


:*SILO IS FILLED AND AN OVERRUN IS EXPECTED ON THE 65TH 


= * CHAR 


PULLED OUT OUT THE SILO. 


;*USING SWITCH NINE FOR THIS TEST SENDS 20. CHARACTERS 
;*0N DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SwO9=1. 


:*USED TO SCOPE SILO ALARM PULSES, ETC. 
s:@ TEST 51 


-“*@@eeeeeeeeeeeneeeeeereeeceeenaeeeaeaeeeneneaankhaeeaeaneananeanneneeneneaeee 


TST31: 


1$: 


23: 


3$: 


4$: 


S$: 
6$: 


7$: 


R$: 


#31 ,.$7STNM LOAD THE NUMBER OF THIS | 
@TST32,NEXKT : POINT TO THE START OF THE “ian TEST 
#)18$.,L0CK ;SET FOR LOOP 
= CLEAR DEVICE AND SET MAINT BIT IF I MODE 
PARR! sPICK UP PARAMETERS 
#1 ,R2 sPICK UP INIT POINTER 
R2.LINE — THIS LINE BE SET UP ? 
R1,aDZLPR ;SET UP LINE PARAMETERS 
Ri -POSITION POINTER TO THE NEXT LINE 
R2 > GOT "EM ALL 2? 
1$ ; IF NO, GO Sei UP THE NEXT LINE 
SAVLIN >CLEAR LINE # INDICATOR 
#TDO,RO -POINT TO THE DATA AREA 
(RO) = CLEAR A DATA WORD 
#@STOrF RO ZF INISHED ? 
76 3NO 
RO CLEAR OFFSET 
#1,R2 SLINE POINTER 
MMSENAB'SILOEN, @DZCSR ;START SCANNER @ SET SILO ENABLE 
R2.LINE :V ALID LINE? 
.*6 YES 
22$ > TRY NEXT LINE 
SAVLIN,RO =MAKE OFF SET 
RU MAKE POWER OF TwO 
R2,aDZTCR +P TCR BIT 
wr hae REC DONE = 1 ? 
20 ;REC DONE SHOULD NOT = 7 
1 >SET CHARACTER COUNT 
#TRDY,aDZCSR 
7$ 
RG 
6$ 
3 -*TRDY FAILED 70 SET 


TDO(RO),@DZTDR :LOAD A CHARACTER 
TDO(RO) “SET UP NEXT CHARACTER 
3.415, 716 CHARACTERS ? 
#SILOAL, @DZ(SR :S1LO ALARM = 0 ? 


YE 
i3° >*SILO ALARM SHOULD NOT = 1 
108 “UNTIL 16. DATA CHARACTERS 


RG 


———_—— oe ———— ~ = 


_——— = — _- —_ 
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9236 1 032777 O20000 161026 9$: BIT MSILOAL ,@DZCSR 
9237 021014 001004 BNE 10$ 
9238 021016 104414 DELAY 
9239 021020 005204 INC R4 
= 9260) »«=©021022 )«=29001371 BNE 9$ 
= 9261 021026 «104014 ERROR 14 :*SILO ALARM FAILED TO SET! 
| 9242 ;SILO ALARM SHOULD =’ AFTER 16. 
9263 :DATA CHARACTERS 
| 9246 021026 005203 19$: INC R3 : INC CHAR COUNT 
| 9245 0210350 0227035 000102 CMP #66. ,R3 “FINISHED SENDING CHARACTERS ? 
—«- 9266S 021034) «=—(001 334 BNE 5$ NO 
| 92647 021036 005004 CLR R4 
| 9268 0210460 104414 DELAY 
9249 021042 105204 INCB RG 
9250 021064 001375 BNE -~ 
9251 :NOW LETS READ THE SILO 
9252 021046 013705 001372 MOV SAVLIN,R ;MAKE EXPECTED LINE # 
9253 021052 105737 001371 TSTB = MODE +1 :1S THIS TEST IN STAGGERED MODE? 
1) 021056 001406 BEQ 13$ :I1F NOT, SKIP STAGGERED SETUP 
1) :wE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
(1) 021060 006205 ASR R5 :GET THE LAST BIT INTO THE CARRY BIT 
(1) 021062 103402 BCS 11$ :1F IT IS SET, GO CLEAR IT 
(1) 021064 000261 SEC sIF IT IS CLEAR SET IT HERE 
(1) 021066 000401 BR 12$ :SKIP THE CLEARING 
(1) 021070 000241 11$: CLC :CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
(1) 021072 006105 12$: ROL R5 :GET THE NEW BIT BACK INTO RS 
9254 021074 000305 13$: SWAB RS :PUT IN UPPER BYTE 
9255 021076 052705 100000 BIS #DVALID,RS ;ADD DATA VALID 
9256 021102 017704 160740 14$: MOV @DZRBUF ,R4 : ACTUAL 
9257 021106 020405 CMP R4,R5 sACTUAL VS. EXPECTED 
9258 021110 001401 BEQ 15$ 7 YES 
9259 021112 104 ERROR 6 :*DATA/CONTENTS DID NOT COMPARE 
9260 021114 032777 020000 160720 15$: BIT #SILOAL ,@DZCSR :SILO ALARM= 0 ? 
9261 021122 001401 BEQ 16$ YES 
9262 021124 104016 ERROR 16 “READING DZRBUF DID NOT CLEAR SILO ALARM 
92635 021126 005205 16$: INC R5 ;UP CHARACTER 
9264 021130 120527 000077 CMPB R5 ,463 sLAST SILO CHAR ?....64TH CHAR 
9265 021134 101762 BLOS 14$ 
9266 021136 005205 INC R5 ;ADD 1 MORE FOR THE CLOBBERED CHAR 
9267 021140 052705 040000 BIS #OVRRUN RS :ADD OVERRUN TO EXPECTED 
9268 021144 120527 000101 CMPB ~=—s_ R25, #65. :LAST CHARACTER ? 
9269 021150 1754 BEQ 14$ 
9270 021152 017704 160670 MOV @DZRBUF ,R4 :FOR GOOD MEASURE 
9271 021156 005704 TST R4 DATA VALID SHOULD = 
9272 021160 BPL 17$ YES 
9273 021162 104017 ERROR 17 “DATA VALID SHOULD = 
9274 021164 040277 160666 17$: BIC R2,aDZTCR CLR TCR BIT 
9275 021170 104401 SCOP1 LOOP? 
9276 021172 005237 001372 228: INC SAVLIN ‘TNC EXPECTED LINE 
9277 021176 106302 ASLB Re sNEXT LINE 
9278 021200 103402 BCS . +6 NO 
9279 021202 000137 020670 JMP YES 
9280 021206 104400 ADVANCE :GO TO NEXT TEST 





mc a eee 


| eee emaeeneneneceme ame ae nes meee ee ———_ — 
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9282 : TIGHT SCOPE LOOP FOR THIS TEST. SENDS 20. CHARACTERS 
9283 :ON DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SWO9=1. 
aS “USED TO SCOPE SILO ALARM PULSES, ETC. 
92 021210 052777 010040 160624 18$: BIS A#MSENAB!SILOEN,@DZCSR ;SETUP DEVICE 
9287 021216 012777 021274 160652 MOV #20$,aDZTIV ;SETUP TRANSMITTER VECTOR 
9288 021224 012737 000024 001216 MOV #20.,$TMPO s TEMPORARY COUNT OF CHARACTER BURST 
9289 021232 050277 160620 BIS R2,aDZTCR ;ENABLE LINE 
9290 021236 052777 040000 160576 BIS #TIE,@aDZCSR ;ENABLE INTERRUPTS 
9291 021244 106427 000000 MTPS #0 :LOWER PRIORITY 
9292 021250 000001 19$: WAIT ;ALLOW INTERRUPTS 
9293 021252 005337 001216 DEC $TMPO ;REDUCE COUNT. ALL CHARACTERS SENT? 
9294 021256 001374 BNE 19$ ;IF NO, WAIT FOR MORE M 
9295 021260 042777 050040 160554 BIC AMSILOEN!MSENAB'TIE,@DZCSR ;RESET SILO COUNTER, CLEAR STROBE 
9296 021266 104401 SCOP1 = LOOP AGAIN? 
9297 021270 000137 021164 JMP 17$ ; IF NOT, RETURN TO WHERE YOU LEFT OFF 
9298 021274 112777 000252 160564 20$: MOVB #252,aDZTDR + SEND A CHARACTER 
9299 0.1302 002 RT] = ALLOW MORE CHARACTERS TO COME 
9300 DUI OOD Rite titi TEST 32 Ramee eee EKER EE 
9301 >*THIS TEST THAT ‘'SILO ~_ ® WILL INHIBIT 
9302 ; #RECEIVER INTERRUPTS AND THAT ON THE 
9305 :*16TH CHAR THAT ‘‘SILO pal WILL CAUSE AN 
9304 = * INTERRUPT WITH ‘'RIE** SET 
9305 s*THIS WILL DO ALL SELECTED LINES ONE AT A TIME. 
9307 ::* TEST 32 
(5) DOIG IIIIIOIOIIIOIIOIIIIOIOIIOIIDIUIDINIOIIIOIIUIIIUIIOIIOIOIOIOIUIOIOIIOIOIIOIOTOI TOR Ik 
(4) 021304 TST32: SCOPE 
(2) 021306 012737 000032 001122 MOV #32,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
(2) 021314 012737 021666 001360 MOV ATST33,NEXT sPOINT TO THE START OF THE NEXT TEST 
9308 021322 012737 021410 001362 MOV #3$,LOCK ;SET FOR LOOP 
9309 021330 104417 DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
(1) 021332 013701 001366 MOV PAR ,R1 =PICK UP PARAMETERS 
(1) 021336 012702 000001 MOV #1,Re ;PICK UP INIT POINTER 
(1) 021342 030237 001364 1$: BIT R2,LINE ;SHOULD THIS LINE BE SET UP ? 
(1) 021346 001402 BEQ =NO 
(1) 021350 010177 160476 MOV R1,@DZLPR ;SET UP LINE PARAMETERS 
(1) 021354 005201 2$: INC R1 =POSITION POINTER TO THE NEXT LINE 
(1) 021356 106302 ASLB R2 ;GOT ‘EM ALL ? 
(1) 1360 103370 BCC 1$ ;I1F NO, GO SET UP THE NEXT LINE 
(1) 021362 005037 001372 CLR SAVLIN > CLEAR LINE #4 INDICATOR 
9310 1366 012700 001422 MOV #TDO,RO =POINT TO THE DATA AREA 
9311 021372 005020 CLR (RO) + :CLEAR A DATA WORD 
9312 021374 022700 001462 CMP #STOP,RO sFINISHED ? 
9313 021400 001374 BNE 76 ;NO 
9314 021402 005 CLR RO s;CLEAR OFFSET 
9315 021404 012702 000001 MOV #1,R2 ;LINE POINTER 
9316 021410 012777 021630 160454 3$: MOV #11$, aDZRIV +: + Ay UNEXPECTED INTER. 
9317 021416 012777 000340 160450 MOV #PR7,@DZRIS 3SET PRI 
9318 021424 052777 010140 160410 BIS #MSENAB'SILOEN!RIE, aDZCSR- 
9319 :START SCANNER & SET SILO ENABLE 
9320 021432 030237 001564 BIT R2,LINE = VALID LINE? 
9321 021436 001002 BNE +6 3: YES 
9322 021440 137 021646 JMP 22$ ; TRY NEXT LINE 
9323 021444 005777 160376 TST aD ZRBUF = EMPTY THE SILO 
9324 021450 100775 BM] 74 “BR IF DATA VALID IS SET 
9325 021452 106427 000000 MTPS #0 ;SET PROCESSOR PRIORITY 0 0 





a 
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9326 021456 01370C 001372 MOV SAVLIN,RO :MAKE OFFSET 
9327 021462 006300 < ASL RO “MAKE POWER OF TWO 
9328 021464 010277 160366 MOV R2,aDZTCR “SET TCR BIT 
9329 021470 005004 7 S$: CLR R4 
9330 021472 032777 100000 160342 6$: BIT #TRDY,aDZCSR 
9331 021500 001004 . 7$ 
9332 021502 104414 DELAY 
9333 021504 005204 : “INC R4 
9334 021506 001371 BNE 6$ 
9335 021510 104003 ee ERROR 3 :*TRDY FAILED TO SET 
9336 021512 116077 001422 160346 -7S: MOVB  TDO(RO),@DZTDR =LOAD A CHARACTER 
9337 021520 005260 001422 : . INC TDO(RO) “SET UP NEXT CHARACTER 
9338 021524 022760 000017 001422 CMP rs. -TDO(RO) :15 CHARS YET? 
9339 021532 001406 BEQ 8$ 
9340 021534 032777 020000 160300 BIT #SILOAL,@DZCSR ;SILO ALARM = 0 ? 
9341 021542 001401 BEO . +4 :YES 
9342 021544 104013 : ERROR 13 = *SILO ALARM SHOULD NOT = 1 
9343 “UNTIL 16. DATA CHARACTERS 
9344 021546 000750 BR 5$ ; 
9345 021550 012777 021636 160314 8%: MOV #12$,aDZRIV :SET NEW VECTOR 
9346 021556 032777 100000 160256 BIT #TRDY,@DZCSR = READY FOR 16TH CHAR 
9347 021564 001774 BEQ 6 
9348 021566 016077 001422 160272 MOV TDO(RO),@DZTDR ;:LOAD THE 16TH CHAR. 
9349 021574 005004 CLR R4 
9350 021576 032777 020000 160236 9$: BIT #SILOAL,@DZCSR 
9351 021604 001005 BN 10$ 
9352 021606 104414 DELAY 
9353 021610 005204 INC R4 
9354 021612 001371 BNE 9$ 
9355 021614 104014 ERROR 14 :*SILO ALARM FAILED TO SET! 
9356 021616 000410 BR 17$ “SILO ALARM SHOULD =1 AFTER 16. 
9357 “DATA CHARACTERS 
9358 021620 000240 10$: NOP STALL 
9359 021622 000240 NOP 
9360 021624 104000 ERROR :SILO ALARM NOT INTERRUPTING. 
9361 021626 000404 BR 17$ SCONTINUE TEST. 
9362 021630 022626 11$: CMP (SP) +, (SP)+ FAKE RTI 
9363 021632 104012 ERROR 12 “RX SHOULD NOT INTERRUPT 
9364 021634 000401 BR 17$ : CONT INUE 
9365 021636 022626 12$: CMP (SP) +, (SP)+ “GOOD INTERRUPT TO HERE. 
9366 021640 040277 160212 17$:  +BIC R2,aDZTCR “CLR TCR BIT 
| 9367 021644 104401 SCOP1 * LOOP? 
| 9368 021646 005237 001372 22$: ‘INC SAVLIN “INC EXPECTED LINE 

9369 021652 106302 ASLB-—R2 “NEXT LINE 
9370 021654 103402 BCS +6 “NO 


9371 021656 000137 021410 JMP 3$ YES 
9372 021662 005037 001362 CLR LOCK “CLEAR TIGHT LOOP FOR NEXT TEST 
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9374 SERRE EEREEER EE TEST 55 See eee eee eee eee eeeeeneeeneeeee 
9375 = *THIS TEST RUNS ALL LINES FULL BORE 
9376 ; *BASED UPON QUALIFIED LINES 
9377 . THIS : AN INTERRUPT TEST ON THE RECEIVER AND 
9378 «TRANSMIT TER 
380 :i* TEST 33 
(5) SRR EERE EERE RE ERE REREEREERRERERR 
(4) 1666 TST335: SCOPE 
(2) 021670 012737 000033 001122 MOV #33, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
(2) 021676 012737 022474 001360 MOV ATST34,NEXT sPOINT TO THE START OF THE NEXT TEST 
9381 021704 104417 DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
9382 021706 013737 1364 022472 MOV LINE,RXTCR ;SET IMAGE OF TCR BITS 
9383 021714 013701 001366 RSTART: MOV PAR ,R1 ;PICK UP PARAMETER 
9384 021720 012700 000001 MOV #1,R0 3zPICK UP INIT POINTER 
9385 021724 030037 001364 INIT BIT RO,LINE ;SHOULD THIS LINE BE SET UP 
9386 1730 001402 BEQ $ 
9387 021732 010177 160114 MOV » R1,@DZLPR ;SET UP LINE PARAM REGISTER 
9388 021736 005201 1$ INC R1 
9389 021740 1063 ASLB RO ;GOT ‘EM ALL ? 
9390 021742 103370 5 BCC INIT ; 
9391 021744 012700 001422 MOV #TDO,RO ;CLEAR TRANS DATA POINTER & REC POINTERS 
9392 021750 005020 INIT?: CLR (RO) + 
9393 021752 022700 001462 - oF #STOP,RO sFINISHED ? 
9394 021756 001374 BNE INIT1 NO, CONTINUE CLEARING 
9395 021760 012777 022214 160104 MOV #ARXSVC,A@DZRIV 7SET UP REC INTR VECTOR 
93 021766 012777 000340 160100 MOV #PR7,aDZRIS : STATUS 
9397 021774 012777 022116 160074 MOV #TXSVC ,AaDZTIV “SET UP TRANS INTR VECTOR 
9398 022002 012777 000340 160070 MOV #PR7,aDZTIS : STATUS 
9399 022010 052777 000100 160024 BIS MARIE, @DZCSR ;SET REC INTR ENABLE 
9400 022016 052777 040000 160016 BIS ATIE,aDZCSR ;SET TRANS INTR ENABLE 
9401 022024 052777 000040 160010 BIS #MSENAB,@aDZCSR ;SET MASTER SCAN ENABLE 
9402 022032 113777 001364 160016 MOVB LINE, @DZTCR 3;SET TCR BITS...UP UP AND AWAY ! 
ers 2040 37 027534 MTPS @ALESS1 ;ALLOW INTERRUPTS 
9405 
06 022044 005037 022114 SNAP: CLR 66$ 
9407 022050 013727 007214 67$: MOV DLYCNT, (PC) + ;SET FOR DELAY 
9408 022054 68$: 0 
9409 022056 005337 022054 DEC 68$ 
9410 022062 001375 BNE 74 
9411 22 105737 022472 TSTB RXTCR sWAIT FOR ALL RECIEVERS TO FINISH 
9412 022070 001002 BNE 3$ : 
9413 022072 000137 022372 JMP OUT 
9414 022076 005237 022114 3$: INC 66$ . 
9415 022102 001362 BNE 67$ | 
9416 221 104007 ERROR 7 > * TRANSMITTER FAILED TO INTERRUPT 
9417 022106 104011 ERROR 11 ;*RECEIVER FAILED TO INTERRUPT 
9418 022110 000137 022444 JMP FINI 
9419 022114 66$: 0 
9420 
9421 >; TRANS INTR SVC ROUTINE 
9422 022116 005777 157720 TXSVC: TST @DZCSR ; TRANS INTR ?. 
23 022122 100401 BM! +4 
9424 022124 104003 ERROR 3 :* TRANSMITTER FAILED 
9425 022126 117703 157712 MOVB @HDZCSR,R3 “SA VE IT 
9426 NOW TEST FOR LINE @ ETC 


cr eet” -——— _ =o — — - - _—- —_ —— = 
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022132 042702 177770 BIC #*C<7>,R3 sSTRIP JUNK 

22136 010304 MOV R3,R4 7 SAV 
022140 010337 001372 MOV R3,SAVLIN ;ADJUST LOCATION FOR ERROR PRINTOUT 
022144 012702 000001 MOV #1,R2 ;SET UP POSITION — ER 
022150 105393 3$: DECB R3 :1S IT THIS LINE ? 
022152 100402 BM] 4$ -YES 
022154 006302 ASL R2 :UP THC LINE # 
022156 00077 BR 3$ 3;GO ‘ROUND AGAIN 

22160 030237 001364 4$: BIT R2,LINE ; VALID LINE? 
022164 001001 BNE +4 YES 
022166 104010 ERROR 10 NO. INVALID LINE!!!! 
022170 0063 ASL R4 MAKE POWER OF 2 
022172 116477 001422 157666 MOVB TDO(R4S) ,ADZTOR “LOAD CHARACTER 

22200 105264 001422 INCB TDO(R4) SET UP NEXT CHARACTER 
022204 1002 BNE $ *LAST CHARACTER ? 
022206 040277 157644 BIC R2,a@DZTCR sYES ,CLEAR TCR BIT 
022212 5$: RTI 

sREC INTR SVC ROUTINE 

022214 105777 157622 RXSVC: TSTB @aDZCSR sREC DONE ? 
022220 100401 BM! +4 YES 
022222 104004 ERROR 4 :FALSE INTERRUPT 
022224 017704 157616 MOV @DZRBUF ,R4 AVE IT 

222 010403 MOV R4,R3 
022232 303 SWAB R3 
022234 042703 177770 BIC #*C<7>,R3 sSTRIP JUNK 
022240 010337 001372 MOV R3,SAVLIN ;SAVE LINE NUMBER 
022244 032777 020000 157570 BIT MSILOAL,@DZCSR ;SILO ALARM? 
022252 001401 BEQ +4 ; 
022254 104 ERROR -S! LO ALARM SHOULD NOT =1 
022256 0057 TST R4 =DATA VALID SET? 

22260 100401 BM] +4 :Y 
022262 104023 ERROR 23 YOU LOSE ~-DATA VALID WAS'NT SET 

22264 032704 070000 BIT WOVRRUN! F RMERR PARER., RS 
022270 001401 BEQ +4 
022272 04 ERROR sRECEIVER ERROR FLAG/S WERE SET 
022274 012702 000001 V #1,R2 SET UP POSITION POINTER 

22300 105303 5$: DECB R3 , 
022302 100402 BM] 6$ 
022304 006302 ASL R2 :RE POSITION POINTER 

22306 00077 BR 5$ 3;GO ‘ROUND AGAIN 
022310 030237 001364 6$: BIT R2,LINE : LINE VALID ? 
022314 00100 BNE +4 
022316 104011 ERROR 11 INVALID LINE # 
022320 013703 001372 MOV SAVLIN,R3 =GET THE Vy NUMBER AGAIN 
022324 303 ASL RS‘! “USE R R3 AS A POINTER IN THE DATA TABLE 
022326 126304 001442 C TRO(R3) ,RS DOES THE DATA CHARACTER COMPARE ? 
022332 001405 BEQ $ - >YES 

22334 016305 001442 MOV TRO(R3) ,R5 : SAVE EXPECTED 
022340 2704 177400 BIC #*C<377>,R4 CL JUNK 

3R2 = LINE # BY A a POSITION 
s . 4 = ACTUAL DAT 
2R5 = EXPECTED DATA 

022344 104005 ERROR 5 7*NO, DATA DOES NOT COMPARE 
022346 005263 001442 2$: INC TRO(R3) “SET UP FOR NEXT CHARACTER 


—_—_—_—_—_— mee a ee ee ee et— _ — 
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022352 
022356 
022360 
022364 
022570 


022372 


022464 
022470 
022472 


022474 
022476 
022504 


022526 
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105763 
001002 


040237 
012716 
000002 


103365 
013777 
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001442 


022472 
022044 


000340 


001372 
000001 
001364 


000400 


001372 


002074 
157476 
002100 
.57410 


024440 


001442 


157420 
157412 


001122 


001362 
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OUT: 


1$: 


2$: 


FINI: 


RXTCR: 


°°@ 


Bic R2, wh’ 
MOV #SNAP , (SP) 


;ALL CHARS DONE? 


;ZERO LINE DONE INDICATOR. 
:RESET THE BACKGROUND TIMING LOOP 


TRO(R3) 
+6 


;F INISH _ ROUT INE 


MTPS PR7 ;STOP ALL INTERRUPTS 


DEVICE. ctR 
CLR R 


:CLEAR ALL INTERRUPTS AWAY 


MOV #1,R 

BIT R2,LINE ;VALID LINE ? 

BEQ 2$ :NO 

re st” ‘op neenebena gta A BINARY COUNT PATTERN ? 
.+ 

ERROR 27 >THE LINE *  * TO RECEIVE A FULL 

;BINARY COUNT PATTERN 

INC SAVLIN ¢SET UP FOR NEXT LINE 

TST (R3)+ ADD 2 

ASLB R2 :SET UP “we LINE POINTER 

BCC 1$ :FINISHED ? 


MOV DZRIS,aDZRIV 
@DZRIS 


sRESTORE TRAPCATCHER 


MOV DZTIS,aDZTIV 
CLR aDZT15S 


;GO TO THE NEXT TEST 
;RX IMAGE OF TCR BITS 


saakkkkakanae eae TEST 354 exc ceeee eee e eee eee eee eee hee 


:*AT ALL BAUD 


;*DZ1i RELATIVE TIMING TEST. 
:*EACH SELECTED LINE WILL IN TURN RUN 16. CHARS 
RATES AND THEN THE HIGHEST BAUD 


>*WITH ALL CHAR LENGTHS. EACH NEW PARAMETER SHOULD 
;*DECREASE IN TIME FROM THE PREVIOUS PARAMETERS R USED 


TEST 


>*THE TIME IS CHECKED AGAINST THE LAST PARAMETER 

;* AND A LOWER TIME IS EXPECTED ON THE CURRENT PARAMETER 
: *PARAMETERS ARE: 

* EIGHT ee Mt ee - TWO STOP BITS 


* 75, 110. 134.5, 150, 300, £00, 1200, 1800, 2000 
* 400, 3600, , 7200, 9600 BA 

* THEN, 9600 BAUD - TwO STOP BITS -_— 

. SIX, FIVE BITS/PER/C 


VEN, HAR. 
> *AFTER EACH LINE HAS FINISHED ALL THE ABOVE PARAMETERS 
gy NEXT SELECTED LINE IS THE TESTED. 


'—MABAASAASRASAAASAASASASAARAAAAARAASARRRARARSR SARS ARRARRRARRRRRRRARARS SS SDS | 


15734: 


MOV ete 


;LOAD THE NUMBER OF THIS TEST 
ta TO THE START OF THE NEXT TEST 


MOV #3$,LOCK :SET 


FOR LOOP 
RESET THIS VARIABLE 


orn 


— em ee ea ss ew i ieee ~—_ ae -——— _- 
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7 
032777 
001407 


001372 
DEL 


00000 
010070 
001216 


010070 
001422 


001462 
001374 
000007 
001374 


024440 
001216 


023202 


023202 
0 


001224 


0 0 
000100 
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001216 
023202 
001364 


023202 


023202 
023202 


023202 
157170 


Seasse 


2$: 


3$: 


BC 
ADVANCE 


DCLASM 


Cc 8 


09:46 PAGE 83-3 


SAVLIN use T LINE NUMBER INDICATOR 

XMTLIN us THIS WORD TO TELL WHAT LINE TRANSMITTED 
#1 ,$TMPO E $TMPO AS A BIT POINTER 

@RCVON' S50! EIGHT /TWOSTOP, 7$ 


;BUILD Reem: PARAMETERS 


STMPO,LINE :I5 THIS LINE ACTIVE? 
3 SO, GO GET STARTED 
#RCVON!SS5O! EIGHT! TwoSTOP, 7$ ;LOAD PARAMETERS TEMPORARILY 
#TDO,RO POINT TO THE DATA AREA 
(RO) + = CLEAR A DATA WORD 
se gt ees :FAINISHED 2 } 
XMTLIN s;POINT TO THE NEXT LINE TO TRANSMIT 
#7,7$ =MAKE SURE TEMPORARY PARAMETERS POINT TO 0 
ue ;ADD DESIRED LINE NUMBER 
$TMPO :POINT TO THE NEXT LINE 
=PROCESS THE NEXT LINE 
s;TEST TO SEE IF THIS TEST GETS REPEATED 
;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
#RCVON, 7% :; ZERO PARAMTERS FOR TX LINE 
7$,@DZLPR :;LOAD PARAMTERS FOR 1X 
MODE ; STAGGERED? 
100$ ;BR IF NO 
- 3SET UP LINE 
98$ ;BR IF LINE WAS EVEN 
;PREPARE TO MKE LINE EVEN 
I9$ : CONTINUE 
;PREPARE TO MAKE LINE ODD 
7$ sSET ALTERED LINE 
#RCVON, 7$ :SET RX ON 
7$,aDZLPR ;LOAD RX PARAMETERS 
7$,SAVLIN * ADJUST LOCATION FOR ERROR PRINTOUT 
#*C<7>,SAVLIN ;STRIP JUNK 
47 ,7$ sche OLD LINE # 
XMTLIN,7$ = SET LINE UP AGAIN 
7$,REGIST : SAV E PARAMETERS FOR PRINTOUT 
#TDO,RO =POINT TO THE DATA AREA 
(RQ) + = CLEAR A DATA WORD 
re ,RO tale ? 
R2 ;USE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
R3 ;USE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS 
$STMP1 : INITIALIZE THE TIMER 
STMP3 s INITIALIZE THESE BITS ALSO 
#20,XMTCNT :SET HOW MANY CHARACTERS TO TRANSMIT 
#XMTSRV ,ADZTIV 
#RXISR1,@DZRIV 
DZPRT,a@DZRIS 
DZPRT ,aDZTIS 
STMPO,aDZTCR ;START THE VALID LINE 


#TIE'RIE'MSENAB, aDZCSR 
#0 LOWER THE PRIORITY TO ALLOW INTERRUPTS 

#RIE,aDZCSR 21S ROUTINE DONE? 

5$ :WHEN ALL IS DONE RX IE IS CLEARED IN ISR. 


—— ee A TT ee — —s = 


SEQ 0093 


ae’ 


ao 


2 ee ee _ 
D 8 
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| 9590 023102 005237 001220 INC $TMP1 ; COUNT TIME 

9591 023106 001371 BNE 4$ ; CONTINUE TEST 

9592 023110 105237 001224 INCB STMP3 ;DOUBLE COUNT 

9593 023114 366 BNE 4$ ; CONTINUE TEST 

9594 023116 104011 ERROR 11 ; INTERRUPTS NOT FINISHED 

9595 023120 004737 007652 S$: JSR PC,SERV.G 3<°@>? 

9596 023124 104401 SCOP1 ; LOOP? 

9597 023126 062737 000002 024440 ADD #2,0F FSET 

9598 023134 013700 023202 MOV 7$,RO 

9599 023140 042700 170377 BIC #*C<17*400>,R0 

9600 023144 022700 007000 CMP #<16*400>,R0 

9601 023150 001010 BNE 6$ 

9602 023152 032737 000030 023202 BIT #B11T4+BiT3,7$ 

9603 023160 001602 BEQ $ 

023162 162737 000010 023202 SUB #B1T3,7$% 
9605 023170 000625 BR 3$ 
023172 062737 000600 023202 68: ADD #400,7$ 

9607 023200 000621 BR 3$ 

9608 023202 000000 7$: 0 

9609 SEEKER EEK TEST 35 TRAARARRRERAAESESAESAS SERS ASSESS 

(7) :* THIS TEST VERIFIES THAT EVEN PARITY WORKS 
(1) ;* FOR ALL ODD LINES SELECTED AND THAT ODD PARITY WORKS FOR ALL 


;* EVEN LINES SELECTED. 

;*THE MAIN FUNCTION OF THIS TEST IS TO VERIFY 
:*THAT ‘PE*’ (PARITY ERROR) CAN BE FLAGGED BY 
;*THE UARTS. THIS TEST WILL NOT BE DONE UNLESS 
;*YOU ARE IN ‘'STAGGERED'* MODE. 

;*40(8) CHARS ARE USED FOR THIS TEST. 

>*ALL SELECTED LINES WILL BE ENABLED 

:*AT THE SAME TIME? 


i te a i, a, a, a, i, 
we Nee Oe ae ee ee ow 


ss@ TEST 35 
(6) DI I IT TI KERR ERE EERE REE EERE EEE 
(5) 023204 000004 TST35: SCOPE 
(3) 023206 012737 000035 001122 MOV #35 ,.$TSTNM ;LOAD THE NUMBER OF THIS TEST 
(3) 023214 012737 023444 001360 MOV #TST36,NEXT ;POINT TO THE START OF THE NEXT TEST 
(1) 023222 005737 001370 TST MODE :I1S THIS STAGGERED MODE? 
(1) 023226 100105 BPL 6$ :IF NOT, DON'T DO THIS TEST 
(2) 023230 104417 DCLASM :CLEAR DEVICE AND SET MAINT BIT IF I MODE 
(1) 023232 013701 001366 MOV PAR ,R1 ;USE R1 TO BUILD PARAMETERS TO BE LOADED 
(1) 023236 042701 000200 BIC #ODDPAR ,R1 sMAKE SURE ODD PARITY ISN'T SET 
(1) 023242 052701 000100 BIS #PARITY,R1 ;MAKE SURE PARITY IS TURNED ON 
(1) 023246 012702 000001 MOV #1,R2 ;USE R2 AS A LINE POINTER 
(1) 023252 030237 001364 1$: BIT R2,LINE 31S THIS A VALID LINE? 
(1) 023256 001411 BEQ 3$ 3I1F NOT, SKIP TO THE NEXT LINE 
(1) 023260 032701 000001 BIT #BITO,R1 1S THIS LINE AN ODD LINE? 
(1) 023264 001002 BNE 2$ :IF IT'S ODD, USE EVEN PARITY 
(1) 023266 052701 000200 BIS HODDPAR ,R1 :IF IT°S EVEN, USE ODD PARITY 
(1) 023272 010177 156554 2$: MOV R1,@DZLPR ;LOAD THE LINE PARAMETER REGISTER 
(1) 023276 042701 000200 BIC #ODDPAR ,R1 ;SET UP THE NEXT PARITY TO EVEN 
(1) 023302 005201 3$: INC R1 sPOINT TO THE NEXT LINE 
(1) 023304 106302 ASLB Re sMOVE THE BIT POINTER IN R2 TO THE NEXT LINE 
(1) 023306 103361 BCC 1$ :IF WE'RE NOT DONE, GO CHECK THE NEXT LINE 
(1) 023310 005037 001372 CLR SAVLIN ;CLEAR THE LINE NUMBER INDICATOR 
(1) 023314 005002 CLR R2 ;USE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
(1) 023316 005003 CLR R3 ;USE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS 
(1) 023320 012737 0000460 001376 MOV 4#40,XMTCNT ; TRANSMIT A BINARY COUNT PATTERN(00-40) 





oe 


| 
) 
| 


| E 8 
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| (1) 023326 012700 001422 MOV #TDO,RO ;POINT TO THE DATA AREA 
| 1) 023332 005020 CLR (RO) + ;CLEAR A DATA WORD 
| ©) 023334 022700 001462 C #STOP RO ;FINISHED ? 
(1) 023340 001374 BNE 7-6 NO 
| (1) 023342 005000 CLR RO ;CLEAR OFFSET 
| <2) 023344 012777 024062 156524 MOV MXMTSRV,@DZTIV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
| (2) 023352 012777 023704 156512 MOV MPARESE,@DZRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 
| (2) 023360 013777 027532 156506 MOV DZPRT,@DZRIS ;SET THE INTERRUPT VECTOR STATUS 
(2) 023366 013777 027532 156504 MOV DZPRT, adZT IS “SET TRANSMITTER INTERRUPT PRIORITY 
(2) 023374 052777 040140 156440 BIS WRIE'TIE! MSENAB, aDZCSR sENABLE THE DEVICE 
(1) 023402 113777 001364 156446 MOVB LINE,@DZTCR : ENABLE ALL SELECTED LINES 
(1) 023410 106427 000000 MTPS #0 “ALLOW INTERRUPTS 
(1) 023414 032777 000100 156420 S5$: BIT ARIE,@DZCSR ;WHEN RX DONE; RIE WILL =0 
(1) 023422 001407 BEQ 6$ ;BR IF ALL DONE 
(1) 023424 005237 024056 INC COUNTO 
(1) 023430 102771 BYVS 5$ 
(1) 023432 105237 024060 INCB COUNT 1 
(1) 023436 100366 BPL 5$ 
(1) 023440 104011 ERROR 11 7*RX FAILED TO FINISH (INTERRUPT) 
(1) 023442 104400 6$: ADVANCE ;ADVANCE LOOP 
9610 paaakkkkkkkkkkekketkKkee TEST SG RARER REE EEE 
(1) s*THIS TEST VERIFIES THAT ODD PARITY WORKS FOR ALL ODD LINES 
(1) ;* SELECTED AND THAT EVEN PARITY WORKS FOR ALL EVEN LINES SELECTED 
(1) >*THE MAIN FUNCTION OF THIS TEST IS TO VERIFY 
(1) :*THAT ‘'PE’’ (PARITY ERROR) CAN BE FLAGGED BY 
(1) :*THE UARTS. THIS TEST WILL NOT BE DONE UNLESS 
(1) >*YOU ARE IN ‘STAGGERED’ MODE. 
(1) 3*40(8) CHARS ARE USED FOR THIS TEST. 
(1) ;*ALL SELECTED LINES WILL BE ENABLED 
(1) ;*AT THE SAME TIME! 
(3) pr* TEST 36 
(6) - SD RB TORO ICICI TOTTI HBC Te TE TE TOI TOOT TOTO TOTO TOTO TOTTI TTT TT TOTTI tt tt 
(5) 023444 000004 1ST36: SCOPE _ 
(3) 023446 012737 000036 0C1122 MOV #56,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
(2) 023454 012737 004712 001360 MOV ASEOP NEXT POINT TO THE END-OF=PASS HANDLER 
(1) 023462 005737 001370 TST MODE 31S THIS STAGGERED MODE ? 
(1) 023466 100105 BPL 6$ :1F NOT, DON'T DO THIS TEST 
(2) 023470 104417 DCLASM ; CLEAR DEVICE AND SET MAINT BIT IF I MODE 
(1) 023472 013701 001366 MOV PAR ,R1 USE R1 TO BUILD PARAMETERS 70 BE LOADED 
(1) 023476 042701 000200 BIC #ODDPAR, R1 “MAKE SURE ODD PARITY ISN'T SET 
(1) 023502 052701 000100 BIS #PARITY,R1 s;MAKE SURE PARITY IS TURNED ON 
(1) 023506 012702 000001 MOV #1,R2 [USE R2 AS A LINE POINTER 
(1) 023512 030237 001364 i$: BIT R2,LINE :1S THIS A VALID LINE? 
(1) 023516 001411 BEQ 3$ : IF NOT, SKIP TO THE NEXT LINE 
(1) 023520 032701 000001 BIT #BITO,R1 :1S THIS LINE AN ODD LINE? 
(1) 023524 001402 BEQ 2$ :IF IT*S EVEN, USE EVEN PARITY 
(1) 023526 052701 000200 BIS HODDPAR ,R1 :1F IT'S ODD, USE ODD PARITY 
(1) 023532 010177 156314 2$: MOV R1,@DZLPR ;LOAD THE LINE PARAMETER REGISTER 
(1) 023536 042701 000200 BIC #ODDPAR ,R1 ;SET UP THE NEXT PARITY TO EVEN 
(1) 023542 005201 3$: INC R1 -POINT TO THE NEXT LINE 
(1) 023544 106302 ASLB R2 “MOVE THE BIT POINTER IN R2 TO THE NEXT LINE 
(1) 023546 103361 ; BCC 1$ ;IF WE*RE NOT DONE, GO CHECK THE NEXT LINE 
(1) 023550 005037 001372 CLR SAVLIN =CLEAR THE LINE NUMBER INDICATOR 
(1) 023554 005002 CLR R2 ;USE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
(1) 023556 005003 CLR R3 ;USE R3 TO COUNT TOTAL NUMBER OF RECEPTIONS 
(1) 023560 012737 000040 001376 MOV #40,XMTCNT ; TRANSMIT A BINARY COUNT PATTERN(00-40) 
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156206 
156160 


09:46 PAG 


roe 


E 83-6 SEQ 0096 


CZDZA D211 DEVICE DIAGNOSTICS. 


S$: 


6$: 


BP 
ERROR 
ADVANCE 


#TDO,RO ;POINT TO THE DATA AREA 

(RQ) + ;CLEAR A DATA WORD 

#STOP,RO a Vy 

RO ;CLEAR OFFSET 

AXMTSRV,@DZTIV ;SET UP THE TRANSMITTER INTERRUPT VECTOR 
MPARESE ,a@DZRIV ;SET UF THE RECEIVER INTERRUPT VECTOR 
DZPRT,a@DZRIS ;SET THE INTERRUPT VECTOR STATUS 

DZPRT ,aDZTIS ;SET TRANSMITTER INTERRUPT PRIORITY 


ARIE! TIE!'MSENAB,@DZCSR ;ENABLE THE DEVICE 


LINE, @DZTCR : ENABLE ALL ap LINES 
#0 “ALLOW INTERRUPTS 
MRIE,@DZCSR ;WHEN RX DONE; RIE WILL =0 
6$ =BR IF ALL DONE 
COUNT O 
5$ 
COUNT 1 
5$ 
17 s*RkX FAILED TO FINISH CINTERRUPI) 

; ADVANCE LOOP 

ou? 


cm ee em | ee = - — ee ae ee —e = 


———— ———— 


024126 
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005261 


— ee ee 


156136 


177770 
001372 


010000 
002046 
000377 
001442 
110000 
001442 
001442 
177400 
177400 
001442 
024056 


024060 
040000 


000100 


155756 


001372 
177770 
001372 


001372 
177770 
001422 
001422 
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001400 


156002 


155766 


155740 
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PARESE: 


10$: 


11$: 


12$: 


13$: 


COUNTO: 


COUNT?: 


XMTSRV: 


1$: 


SEQ 0097 


sRECEIVER SERVICE ROUTINE(PARITY TEST ONLY) 


@aDZRBUF ,R4S 
4,R1 
R1 
#*C<7>,R1 
R1,SAVLIN 


oe * REGIST 


pre RS 
TRO(R1), R5 


;GET THE CHARACTER 

;COPY THE RECEIVED INFORMATICN 

;GET THE LINE NUMBER IN THE LOWER BYTE 
;ISOLA;E THE LINE NUMBER 

sFILL LOC. FOR ERROR PRINTOUT 

;WAS DATA VALID? 

;BRANCH IF YES 


age - DATA VALID NOT SET! 
ALIGN IT ON A WORD BOUNDARY 
PARITY ERROR SHOULD BE SET. 
;I1F SO, GO CHECK CHARACTER 
:SET UP FOR THE ERROR MESSAGE 


IS IT? 


;GET THE CORRECT CHARACTER 


#DVALID'PARER,RS ;BUILD WHAT WAS EXPECTED 


6 
TRO(R1) , RS 
12$ 
TRO(R1),R5 
#*C<377>,R5 
‘Setar 
TRO(R1) 

R3 

COUNTO 
COUNT 1 
#TIE,aDZCSR 
13$ 

R2,R3 

15$ 

ARIE, @DZCSR 


;CHECK THE CHARACTER. 
;IF SO, GO SET UP NEXT CHARACTER 

;LOAD THE CHARACTER FOR ERROR REPORTING 
;CLEAR SIGN EXTEND 


*ERROR- DID NOT GET CORRECT INFORMATION 
IS IT CORRECT? 


;REMOVE THE JUNK FROM R4, THE ACTUAL CHARACTER 
;DATA ERROR 

:SET UP THE NEXT CHARACTER 

:ADD TO THE TOTAL RECEIVED COUNT 

sRESET COUNTERS TO NEXT 


:RECIEVER INTERRUPT 

;ARE TRANSMISSIONS DONE? 

;IF NO, GO RECEIVE SOME MORE 
;ARE ALL CHARACTERS RECEIVED? 
;IF NO, GO RECEIVE SOME MORE 
sDISABLE RECEIVER INTERRUPTS 
;GO BACK TO RECEIVER WAIT LOOP 


; TRANSMITTER INTERRUPT SERVICE 


@HDZCSR,R1 
1$ 


SAVLIN,RO 
#*C<7>,R1 
aa 


RO, SAVLIN 
#*C<7>,R1 


R1 
TDO(R1),a@DZTDR 
TDO(R1) 


;GET THE LINE NUMBER. 
sREALLY READY? IF SO, GO LOAD THE CHARACTER 
;ADJUST LOCATION SAVLIN 

; ISOLATE THE LINE NUMBER 

;FOR ERROR PRINTOUT 

;* TRANSMITTER NOT READY= FALSE INTERRUPT 
sRESET SAVLIN TO PREVIOUS VALUE 


IS THE TRANSMITTER 


; ISOLATE THE LINE NUMBER 


“MAKE SURE IT REFERENCES A WORD BOUNDARY 


;LOAD THE CURRENT CHARACTER FOR THIS LINE 
;SET UP NEXT CHARACTER FOR THIS LINE 


PITIITITI TTT TTT P TTT TTT TITTLE 


s(REV. FO: DELETED INC 


.——— —— - 


H 8 
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9668 SERRA EERE AREER EERE RRR A RR EA ER EA REE E RE RER ER 
9669 024132 023761 001376 001422 CMP XMTCNT,TDO(R1) ;HAVE WE DONE ALL PATTERNS ON THIS LINE? 
9670 024140 001015 BNE 4$ ;IF NOT, KEEP ON TRANSMITTING 
| 9671 024142 012700 000001 MOV #1 ,R0 SET UP” A DESELECTION POINTER 
— 9672 024146 006201 ASR R1 ;GET THE LINE NUMBER AGAIN 
| 9673 024150 005301 2$: DEC R1 s REDUCE THE COUNT. WAS THIS THE LINE? 
| 9674 024152 1004602 BM] 3$ “IF SO, GO DISABLE THE ENABLE BIT FOR IT 
9675 024154 006300 ASL RO sMOVE THE POINTER TO THE NEXT LINE 
| 9676 024156 000774 BR 2$ :GO CHECK THE NEXT LINE 
9677 024160 140077 155672 3$: BICB RO,@DZTCR DISABLE THE LINE POINTED TO BY RO 
9678 024164 001003 BNE 4$ 3; IF MORE LINES ARE ACTIVE GO CONTINUE TRANSMIT 
9679 024166 062777 040000 155646 BIC ATIE,@DZCSR “IF NOT, DISABLE TRANSMITTER INTERRUPTS 
9680 SERRE ERE EREEREEEREREEEREREEEEEREREEREE EE 
9681 024174 005202 4$: INC R2 ;UP THE NUMBER OF TRANSMISSIONS (REV. FO) 
9682 SE EERE EERE REE EERE REE KEKE 
9683 024176 000002 RT] sRETURN TO THE TIMING LOOP 
9684 
5687 sis eneggacae corms 
9688 024200 0127357 000004 001222 BUILD: MOV #4 ,$TMP2 sROTATE 4&4 BITS BACK INTO $TMP1 
9689 024206 006037 001224 1$: ROR $STMP3 :GET THE BITS FROM $71MP3, THE HIGH BYTE 
9690 024212 006037 001220 ROR STMP1 ;OF THE RELATIVE TIME COUNTER. PUT THEM BACK 
9691 024216 005337 001222 DEC $STMP2 ; INTO $TMP1 USING THE CARRY BIT WITH 
9692 sROTATE INSTRUCTIONS 
9693 024222 001371 BNE 1$ sREDUCE COUNT. ALL BITS BACK? IF NOT, GET MORE 
9694 024224 000207 RTS PC sRETURN TO CALLING TEST 


9685 | ; RELATIVE TIME BUILDING ROUTINE 


—_— OS Sew em ee” ee ee — -- -—— 


—_——— ee eee we —- 


am - - —_— - ~ _—— oo 


1 8 


9743 024440 000000 OFFSET: 0 1 


*- 
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| 9697 “RECEIVER SERVICE ROUTINE 
9699 024226 105777 155610 RXISR1: TSTB aDZCSR :IS THE RECEIVER REALLY READY? 
9700 024232 100401 BM | 1$ “IF SO, GO SERVICE IT 
9701 024234 104004 ERROR 4  eERROR= RECEIVER DONE FLAG ISN'T SET 
9702 024236 017704 155604 1$: MOV @DZRBUF .R4 “SAVE THE RECEIVER INFORMATION 
9703 024242 100401 BM] 2$ SIF IT WAS VALID, GO PROCESS IT 
9704 024244 104023 FRROR 23 “ERROR= DATA VALID WASN'T SET 
9705 0246246 032704 070000 2$: BIT #OVRRUN'!FRMERR'!PARER.R4 :ARE ANY ERROR FLAGS SET? 
| 9706 0246252 001403 BEQ 3$ :IF NOT. GO CONTINUE PROCESSING 
9707 024254 013700 002046 MOV DZRBUF RO “SET UP FOR ERROR REPORTING 
9708 024260 104002 FRROR 2 “ERROR- RECEIVER ERROR FLAG SET 
9709 024262 010401 3s: MOV R4,RI “COPY THE RECEIVER INFORMATION 
9710 024264 000301 SWAB ORT “GET THE LINE NUMBER IN THE LOWER BYTE 
| 9711 094566 042701 177770 BIC #°C<7>.R1 “ISOLATE THE LINE NUMBER 
| 9712 024272 006307 ASL R1 “ALIGN IT ON A WORD BOUNDARY 
9713 024276 120461 001442 CMPB —s-R4&  TRO(R1) "1S THE CHARACTER WHAT IT SHOULD BE? 
9714 026300 001413 BEO 4$ “IF SO.GO CONTINUE PROCESSING 
9715 024302 116105 001442 MOVB _—sCTTRO(R1).RS “GET WHAT WAS EXPECTED FOR ERROR REPORTING 
9716 024306 042705 177400 BIC #*(<377>.R5 “ELIMINATE PROPAGATED SIGN 
9717 024312 042704 177400 BIC #°(<377>_RG “ISOLATE THE ACTUAL CHARACTER 
9718 024316 010137 001372 MOV R1, SAVLIN “GET THE LINE NUMBER OF THE RECEIVER ERROR 
9719 024322 006237 001372 ASR SAVLIN “ALIGN IT CORRECTLY FOR REPORTING 
9720 024326 106005 ERROR 5 *DATA ERROR 
9721 026330 005261 001442 4$: INC TRO(R1) “SET UP THE NEXT EXPECTED CHARACTER 
9722 024334 005203 INC R3 “ INCREMENT THE COUNT OF RECEIVED CHARACTERS 
9723 024336 032761 000020 001442 BIT #20, TRO(R1) “HAVE ALL CHARACTERS BEEN RECEIVED? 
9724 024344 001402 BEQ 5$ “IF NOT, GO RECEIVE SOME MORE 
9725 024346 020203 CMP R2,R3 “HAVE WE RECEIVED ALL CHARACTERS? 
9726 026350 001401 BEQ 6$ “IF SO,GO DETERMINE THE TIMING 
9727 024352 000002 S$: RTI “GO CONTINUE TIMING AND ALLOW INTERRUPTS 
9728 0246354 006737 024200 é$: JSR PC BUILD “GET THE RELATIVE TIME (SIGNIFICANT BITS) 
9730 024360 013700 024440 MOV OF FSET.RO :GET POINTER 
9731 024364 013760 001220 002102 MOV $TMP1.TMTBL(RO) : SAVE THIS TEST'S TIME 
9732 024372 005737 024440 TST OFF SET “FIRST TEST? 
9733 024376 001414 BEQ 7$ “IF NOT, GO CHECK THE TIME 
9734 024400 005740 TST -(RO) “POINT TO THE PREVIOUS TIME TAKEN 
9735 024402 026037 002102 001220 CMP TMTBL(RO).$TMP1 :1S THIS TIME WHAT IT SHOULD BE? 
973% 026410 101007 BH] 7$ “IF SO, GO TO THE NEXT TEST 
9737 024412 016005 002102 MOV TMTBL(RO).R5 = PLACE WHAT WAS EXPECTED IN RS 
9738 024416 010137 001372 MOV R1. SAVLIN “GET THE LINE NUMBER OF THE RECEIVER 
9739 024422 006237 001372 ASR SAVLIN “MAKE SURE IT'S THE LINE NUMBER 
9740 026426 104021 ERROR ?1 “TIMING ERROR 
9741 024430 042777 000140 155404 7$: BIC #RIE'MSENAB. apzc5e :DISABLE THE DEVICE 
9742 024436 000002 RT] RETURN TO THE PROGRAM 
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SEQ 0100 


CZDZA D211 DEVICE DIAGNOSTICS. || 
3DZ11 ECHO/CABLE TEST 


XSTART: 


*STARTING PROCEDURE 
*LOAD PROGRAM 
;*LOAD ADDRESS 000210 


;*PRESS START 


*PROGRAM 
*PROGRAM 
*TYPE IN 
*PROGRAM 
*TYPE IN 
*FOR THE 
*PROGRAM 
*/YPE IN 
*FOR THE 
*PROGRAM 
*TYPE IN 
* FOLLOWE 
*PROGRAM 
*TYPE IN 
3*, FOLLOWE 


** 
- 


eeeneenenenneennenne 


; *PROGRAM 


WILL TYPE WHICH TEST= ECHO OR CABLE 
E OR C __ RESPECTIVELY 
WILL TYPE “VECTOR ADDRESS-"' 
THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
DZ11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
WILL TYPE ‘‘CONTROL REGISTER ADDRESS-"' 
THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
DZ11 TO BE TESTED, FOLL GWED BY <CARRIAGE RETURN> 
WILL TYPE ‘LINE NUMB 
THE LINE NUMBER TO BE TESTED (IN OCTAL) 
D BY <CARRIAGE RETURN> 
WILL TYPE ‘BAUD RATE-"' 
THE BAUD RATE OF THE DZ11 TERMINAL 
D BY <CARRIAGE RETURN> 
THE FOLLOWING BAUD RATES ARE ACCEPTED IN DECIMAL 


| 
WILL TYPE D211 ECHO/CABLE TEST 


0 
132 (ROUNDED OFF 1534.5) 


96 
>*ALL OTHERS ARE REJECTED 


WILL TYPE “‘ECHO"’ OR ‘CABLE TEST’* TO INDICATE THAT TESTING HAS STARTE 


;PROGRAM INITIALIZATION 


;LOCK OUT 


INTERRUPTS 


;SET UP PROCESSOR STACK 
;SET UP POWER FAIL VECTOR 
;CLEAR PROGRAM FLAGS AND COUNTS 


MOV ASTACK, SP 
MTPS #PR7 


;SET UP PROCESSOR STACK 
;LOCK OUT INTERRUPTS 


MOV A#XSTART,$LPADR ;SET UP _IN CASE OF Me we FAIL 


CLR STFLG ;CLEAR TEST START 

CLR $PASS ;CLEAR PASS COUNT 
CLR SERTTL >CLEAR ERROR COUNT 
CLRB SERFLG ;CLEAR ERROR FLAG 


CLR LAST ;CLEAR LAST ERROR PC 
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032777 


000001 


000300 
000302 


001000 


002042 


026636 


ee ee ee ee 
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154446 VEC: 
VEC2: 
1$: 
.BYTE 
BYTE 
.BYTE 
.BYTE 
002046 
002046 
002052 
002056 
002056 
002060 
002066 
002066 


002062 
154264 OTHER: 


BAUD : 
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8 
SEQ 0101 


BIT #SWO0,@SWR :IF SwOO=1, GET NEW VECTOR 
BEQ OTHER “AND CSR 
MOV #300,R1 
MOV #302,R2 
MOV R2,(R1)+ :RESTORE TRAPCATCHER 
CLR (R2)+ :IN FLOATING VECTOR AREA 
CMP (R1)+, (R2)+ “UPDATC THE POINTERS 
CMP R1.41000 
BNE 1$ 
INSTR : INPUT ADDRESS OF DEVICE VECTOR 
MVECTOR “MESSAGE "VECTOR ADDRESS="' 
PARAM “CONVERT STRING TO OCTAL 
300 :LOW LIMIT 
770 ‘HIGH LIMIT 
DZRIV “LOCATIONS TO BE FILLED 
“LSB MASK 
“NUMBER OF LOCATIONS 
INSTR - INPUT ADDRESS OF DEVICE CSR 
MRE GAD “MESSAGE ‘'CONTROL REGISTER ADDRESS=-"' 
-CONVERT STRING TO OCTAL 
160000 “LOW LIMIT 
163700 -HIGH LIMIT 
DZCSR “LOCATIONS TO BE FILLED 
7 *LSB MASK 
1 “NUMBER OF LOCATIONS 
MOV DZCSR.DZRBUF ;BEGIN {BUILDING DEVICE ADDRESSES 
ADD #2, DZRBUF FORM THE READ BUFFER ADDRESS 
MOV DZRBUF.DZLPR § :REMEMBER THAT THIS IS ALSO LINE PARAMETER REG. 
MOV DZRBUF.DZTCR § :BEGIN BUILDING TRANSMITTER CONTROL REGISTER 
ADD #2,DZTCR -FORM THE TRANSMITTER CONTROL REGISTER POINTER 
MOV DZTCR,HDZTCR 
INC HDZTCR 
MOV DZTCR,DZTDR :BEGIN FORMING TRANSMITTER DATA REGISTER 
ADD #2,DZTDR *FORM THE TRANSMITTER DATA REGISTER 
MOV DZTDR,DZMSR 
BIT #SWO1,aSWR sRESELECT OF TEST? 
BEQ XBEGIN “IF NOT, SKIP ASKING WHICH ONE 
INSTR > INPUT WHICH TEST YOU ARE RUNNING 
MWHICH -ECHO OR CABLE 
PAWCH “SET FLAG 
WCHFLG -THIS FLAG 
INSTR ; INPUT BAUD RATE 
MSPEED “MESSAGE ‘BAUD RATE-"" 
PARMD = CONVERT DECIMAL STRING TO OCTAL 
50. =LOW LIMIT 
9600. *HIGH LIMIT 
L INESP sLOCATION TO BE FILLED 
-LSB MASK 
1 “NUMBER OF LOCATIONS 
DEVICE.CLR “CLEAR DEVICE 
CLR STFLG “CLEAR PROGRAM START FLAG 
INST - INPUT LINE NUMBER 
ML INE “MESSAGE ‘'LINE NUMBER-"" 
PARAM “CONVERT STRING TO OCTAL 
0 *LOW LIMIT 
7 “HIGH LIMIT 
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9860 024744 001372 SAVLIN :LOCATION TO BE FILLED 
9861 024746 000 BYTE 0O :LSB MASK 
9862 024747 001 BYTE 1 “NUMBER OF LOCATIONS 
9865 024750 004537 026440 JSR RS,SET 
9865 024754 106427 000340 XBEGIN: MTPS #PR7 :LOCK OUT INTERRUPTS 
024760 012706 001120 | MOV #STACK,SP :SET UP PROCESSOR STACK 
9867 024764 005037 026640 CLR LOCKUP *CLEAR TIMEOUT 
9868 024770 005737 026634 TST WCHFLG ECHO OR CABLE TEST ? 
9869 0264774 001413 BEQ 2$ : ECHO 
9870 024776 012737 025512 001126 MOV ATEST2,$LPADR ;:CABLE TEST 
9871 025004 005737 026636 TST STFLG :ARE YOU LOOPING ? 
9872 025010 001017 BNE 1$ : YES 
9873 025012 005137 026636 COM STFLG :NO 
9874 025016 104402 027171 TYPE »MCABLE : TYPE CABLE TEST 
9875 025022 000412 BR 1$ 
9876 025024 012737 025054 001126 2$: MOV #TEST1,$LPADR  ;:SET UP ECHO TEST 
9877 025032 005737 026636 TST STFLG :ARE YOU LOOPING ? 
9878 025036 001004 BNE 1$ : YES | 
9879 025040 005137 026636 COM STFLG :NO | 
9880 025044 104402 027144 TYPE /MTERM - TYPE ECHO TEST | 
9881 025050 000177 154052 1$: JMP @SLPADR :START TESTING | 
9882 -THIS TEST WILL ACCEPT 1 CHARACTER AT A TIME | 
9883 -(IN INTERRUPT MODE) AND TRANSMIT THAT SAME CHARACTER, | 
9884 “ONE LINE AT A TIME, ANY LINE O THRU 7 (OCTAL) | 
9886 025054 104413 TEST1: DEVICE.CLR :CLEAR DZ11 
9887 025056 012737 000001 001122 MOV #1, $TSTNM | 
9888 025064 013777 026660 154764 MOV NUMTCR,@DZ2TCR ;SET TCR BIT | 
9889 025072 013737 026656 001366 MOV NUMLIN,PAR =SET PARAMETERS 
9890 025100 053737 026654 001366 BIS SPEED,PAR :SET BAUD RATE | 
9891 025106 013777 001366 154736 MOV PAR, @DZLPR “LOAD PARAM. | 
9892 025114 012777 000040 154720 MOV A#MSENAB,a@DZCSR ;:SET SCANN ENABLE 
9893 025122 005004 CLR R4 
9894 025124 012705 027206 MOV #MQUICK,R5 ;SET MESSAGE BUFFER 
9895 025130 005777 154706 3$: TST @DZCSR -TRDY? . 
9896 025134 100404 BMI 2$ “BR IF YES . 
9897 075136 104414 DELAY :WAIT 
9898 025140 005304 DEC R4 : | 
9899 025142 001372 BNE 3$ : | 
9900 025144 104003 ERROR 3 -NO TRDY SET! WHY? | 
9901 025146 005004 2$: CLR R4 :RESET COUNTER TO 0 | 
9902 025150 112577 154712 MOVB (R5)+,aDZTDR = LOAD CHAR | 
9903 025154 001365 BNE 3$ : 
9904 025156 004737 007652 JSR PC, SERV.G <*G>? | 
9905 025162 122777 000377 153770 CMPB #377.aSWR “RE-DO QUICK BROWN? | 
9906 025170 001731 BEQ TESTI “BR IF REPEAT PATTERN 
9907 025172 104413 DEVICE.CLR 
9908 025174 106427 000340 MTPS #PR7 :LOCK OUT INTERRUPTS 
9909 025200 012737 026150 001360 MOV #XEOP,NEXT 
9910 025206 104413 DEVICE.CLR 
9911 025210 013737 026656 001366 MOV NUMLIN,PAR >SELECT LINE # & SET INTERRUPT ENABLE 
9912 025216 053737 026654 001366 BIS SPEED,PAR :SET LINE SPEED AND 
9913 *CHARACTER LENGTH (TRANS. & REC.) 
9914 025224 052737 010000 001366 BIS #RCVON,PAR “MAKE SURE RECEIVER IS TURNED ON 


9915 025232 015777 001366 154612 MOV PAR ,@DZLPR ;LOAD THE LINE PARAMETER REGISTER 
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9916 025240 012777: 025314 154624 MOV #INTSVC,@DZRIV ;SET UP INTERRUPT SERVICE 
9917 025246 013777 026662 154620 MOV PRIO, aDZRIS : AND LEVEL 
9918 025254 106437 027534 MIPS a#LESS1 LLOW INTERRUPTS 
9919 025260 012777 000140 154554 MOV #RIE'MSENAB, apzcér” ;SET RECEIVER INTERRUPT ENABLE 
9920 025266 104402 027036 TYPE .MCHAR : TYPE '‘ANY CHARACTER’ 
9921 025272 105777 153666 1$: TSTB = AS TKS -IF SOMBODY HITS A KEY- GET NEW LINE # 
9922. 025276 100375 BPL 1$ “LOOP HERE 
9923 025300 005777 153662 TST a$TkKB *CLEAR CHAR 
9924 025304 004737 007652 JSR PC,SERV.G -MAKE SURE IT WASN'T <*G> 
9925 025310 000137 024724 JMP L INEX ; 
3959 
9928 :THE FOLLOWING IS THE RECEIVER INTERRUPT SVC ROUTINE 
9929 025314 105777 154522 | INTSVC: TSTB aDZCSR TEST REC. FLAG 
9930 025320 100401 BM] +4 
9931 025322 104004 ERROR 4 :ERROR - INTERRUPT NOT CAUSED BY FLAG 
9932 025324 017737 154516 026664 MOV @D ZRBUF ,RECDAT 
9933 025332 100401 BM] +4 
025334 104023 ERROR 23 :NON= VALID CHARACTER 
9935 025336 032737 020000 026664 BIT #B1T13,RECDAT :CHECK FOR FRAMING ERROR 
9936 025344 001401 BEQ +4 -BR IF NO ERROR 
9937 025346 104025 ERROR 25 :EITHER SOMBODY HIT THE 
9938 "BREAK KEY'’ OR YOU HAVE AN ERROR! 
9939 025350 113737 026664 026666 MOVB —- RECDAT, TBUF “MOVE CHARACTER TO OUTPUT AREA 
9940 025356 113737 026664 011272 MOVB — RECDAT,, INBUF -MOVE CHARACTER TO CHECK FOR *C 
9941 025364 042737 177600 011272 BIC #*C<177>, INBUF :STRIP JUNK PLUS PARITY 
9942 025372 042737 174377 026664 BIC #174377,RECDAT :SAVE ONLY LINE NUMBER | 
9943 025400 000337 026664 SWAB — RECDAT | 
9944 025404 023737 001372 026664 CMP SAVLIN,RECDAT  ;:DOES THE LINE # COMPARE? | | 
9945 025412 001401 BEQ +4 | | 
9946 025414 104015 ERROR 15 :*WRONG LINE NUMBER | | 
9947 025416 012777 000040 154416 MOV #MSENAB,@DZCSR :START THE TRANSMITTERS SCANNER : 
9948 025424 123727 011272 000003 CMPB ss INBUF ,#3 ;IS IT A *C | | 
9949 025432 001004 BNE 1$ ZNO | | 
9950 025434 104413 DEVICE.CLR | | 
9951 025436 012716 026150 MOV #XEOP, (SP) :CRUNCH STACK | 
9952 025442 000002 RTI | | 
9953 025444 005003 1$: CLR R3 : INITIALIZE DELAY | | 
9954 025446 013777 026660 154402 MOV NUMTCR,@DZTCR :ENABLE THE LINE | | 
9955 025454 005777 154362 10$: TST aDZCSR * TRANSMITTER READY? | 
9956 025460 100403 BM] 2$ -IF YES BRANCH 
9957 025462 005203 INC R3 : INCREMENT DELAY 
9958 025464 001373 BNE 10$ “DELAY DONE? | 
9959 025466 104003 ERROR 3 : TRANSMIT READY NOT SET! | 
9960 025470 113777 026666 154370 238: MOVB  =TBUF,@DZTDR - TRANSMIT THE CHARACTER | 
9961 025476 012777 000140 154336 MOV #RIE 'MSENAB, @DZCSR sRESTART THE RECEIVER | 
9962 25504 005077 154346 CLR aDZTCR -CLEAR TCR BIT | 
9963 025510 00000? RTI | 
9964 | 
9965 | 
9966 :THIS TEST TRANSMITS A BINARY COUNT PATTERN | 
9967 :VIA_INTERRUPT MODE TO THE RECEIVER | 
9968 .THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR | 
9969 025512 106427 000340 TEST2: MIPS  #PR7 :DISABLE INTERRUPTS | 
9970 025516 012737 000002 001122 MOV #2. $TSTNM | 
9971 025524 012737 026150 001360 MOV #XEOP NEXT | 





oe ee eee ee -——_—_— —- 


CZDZA=GO 
CZDZAG.P11 


Sseeessss 
CONAUIS WN —© 


—) wow) =) =) od 
SSsesses 
OunnswWwrn-Owo 


10027 





025532 


025702 


025710 


MACY11 30A(1052) 
24-JUN-81 09:45 


104412 


012737 
113777 


106437 
013777 


105777 
100006 


025542 
026660 


026660 
026660 
154270 


001366 
027534 
026660 
153250 
153244 
007652 
024724 
026640 


026150 
026640 
154062 


154056 


040000 


24-JUN-81 


154214 


154154 
154146 


026664 


026664 


09:46 PAGE 84-4 


CZDZA DZ11 DEVICE DIAGNOSTICS. 


2$: 
3$: 


SPIN: 


1$: 


QUITS: 


INTREC: 


SEQ 0104 


DEVICE.CLR 
s*TEST TO VERIFY THAT SETTING CTR FOR A GIVEN LINE 
:*WILL BRING UP ‘CO’' AND ‘RING'’ FOR THE SAME LINE 
;*THE DIST PNL MUST HAVE JUMPER FROM DIR TO RQST TO SEND 
;*IN ORDER FOR THIS TEST TO WORK! 
MOV #1$,LOCK ; LOOP 
Ty NUMTCR., -@HDZTCR SET DR 
BISB NUMTCR,R5 “BUILD EXPECTED 
SWAB R ;PUT IN HIGH BYTE 
BISB NUMTCR ,R5 ; 
DELAY ;WAIT FOR CABLE DELAY 
MOV @DZMSR ,R4 ;READY MODEM FITS 
CMP R5,R4 ;ARE THEY OK? 
BEQ 2$ ;BR IF YES 
ERROR 22 31S THE TEST CONNECTOR ON? 
:HAS RIGHT LINE —) = ty ay 
:IF SO= YOU HAVE A PROBLEM 
sMODEM BITS NOT RIGHT 
SCOP 1 ; LOOP 
DEVICE.CLR ‘INIT DZ11 
MOV SPEED ,PAR :SET LINE SPEED 
BIS NUML IN, PAR sSELECT LINE #4 & REC. INTERRUPT ENABLE 
BIS #RCVON,PAR sENABLE THE RECEIVER FOR THIS LINE 
BIS #TIE'RIE'MSENAB,@DZCSR ;SET TRANSMITTER INTERRUPT ENABLE 
MOV #INTREC,@DZRIV ;SET UP INTR SERVICE 
MOV PRIO,aDZRIS :SET UP LEVEL 
MOV #INTRAN, @DZTIV SET UP INTR SERVICE 
MOV PRIO,aDZTIS ;SET UP LEVEL 
CLR R1 :RX DATA POINTER- SET TO 0 
CLR R2 :TX DATA POINTER- SET TO 0 
MOV PAR ,@DZLPR ;SET THE PARAMETERS AND TURN ON RECEIVER 
MTPS @A4LESS1 sALLOW INTERRUPTS 
MOV NUMTCR,@DZTCR ;SET UP TCR BIT 


TS TK 
BPL $ 
TST a$TKB 
JSR PC,SERV.G 
JMP NEX 
INC LOCKUP 
BNE +SPIN 
ERROR 1¢ 
DEVICE.CLR 
JMP XEOP 
CLR LOCKUP 
TSTB @DZCSR 
] +4 
ERROR 4 
MOV . a@DZRBUF ,RECDAT 
BMI . +4 
ERROR 23 
BIT mits. RECDAT 
BEQ 
ERROR 35" 


i mit — AFTER EVERY RECEIVER INTERRUPT 


31F SOMEBODY HITS A KEY~ GET A NEW LINE # 
;BR_IF NO KEY HIT 


:CLEAR CHAR 


aie tes IT WASN'T <*G> 


3 

: INC TIMEOUT FLAG 

;I1F NOT 0 RETURN SPINNING 

:*RECEIVER FAILED TO INTERRUPT CHECK CABLE/TERMINATOR 


;CALL FOR END OF PASS 
;CLEAR TIMEOUT FLAG 
uty REC DONE 


S 
: *FALSE INTERRUPT 


7SAVE WORD 
;*NON VALID CHARACTER 


sDATA OVERRUN ? 


NO 
7*VES 
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1$: 
2$: 


INTRAN: 


B 
RT] 


#B1T13,RECDAT ;FRAMING ERROR ? 
+4 sNO 
25 :eVYES 
#B1T12,RECDAT  ;PARITY ERROR ? 
+4 ¢NO 

“YES 
R1,R5 “SET EXPECTED 
#°C<377>, R5 sCL or HIGH BYTE 
RECDAT Ré GET F OUND 
#*°C<377>,RG “CLEAR HIGH BYTE 
R5,R4 30K? 
+4 
5 :DATA ERROR 
#176377 RECDAT ;SAVE ONLY LINE NUMBER 
SAVLINRECDAT s DOES THE LINE # COMPARE ? 
_+ 
15 >*WRONG LINE @ 
Ri 4377 =LAST CHARACTER ? 
1$ =NO 
SUITS. (SP) > CRUNCH STACK 
R1 s;UPDATE EXPECTED DATA 
A#SPIN, (SP) : CRUNCH STACK 
apZCSR TEST TRANSMIT ‘ 
a@ 


3 ;*FALSE INT 
R2,@DZTDR 
R2 


;RE TURN 


;UPDATE TX 


ERRUPT 


; TRANSMIT A CHARACTER 


DATA 


SEQ 0105 


— —_—— —_ 7 
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10061 

10062 :END OF PASS 

10064 

10065 026150 104402 XEOP: TYPE : TYPE NAME OF TEST 
10066 026152 026746 MP 

10067 026154 005037 026642 CLR LAST :CLEAR LAST ERROR PC 
10068 026160 105037 001123 CLRB = $ERFLG “CLEAR ERROR FLAG 
10069 026164 000137 024754 JMP XBEGIN 

10071 :CONVERT DECIMAL ASCII STRING TO OCTAL 
10072 026170 011605 MOV (SP) RS 

10073 026172 012537 026354 V (R5)+,6$ 

10074 026176 012537 026356 MOV (RS) +.7$ 

10075 026202 012537 026360 MOV (RS) +.8$ 

10076 026206 112537 026362 MOVB _(R5)+,9$ 

10077 026212 112537 026363 MOVB _— (R5) +. 10$ 

10078 026216 010516 MOV R5, (SP) 

10079 026220 005005 CLR R5 

10080 026222 012704 011272 MOV #INBUF .R4 

10081 026226 122714 000015 CMPR ss #*15,, (R&) 

10082 026232 001424 BEQ 

10083 026234 121427 000060 1$: CMPB ~—s_- (RG) #0 

10084 026240 002421 BLT 3$ 

10085 026242 121427 000071 CMPB ~—s-_- (RG) ,#"9 

10086 026246 003016 BGT 

10087 026250 142714 000060 BICB #'0,(R4) 

10088 026254 005002 CLR R2 

10089 026256 152402 BISB (R4)+,R2 

10090 026260 060205 ADD R2.R 

10091 026262 122714 000015 CMPB ss #15, (R4) 

10092 026266 001410 BEQ 4$ 

10093 026270 006305 ASL R5 :X2 

10094 026272 010502 MOV R5,R2 SAVE x2 | 
10095 026274 006305 ASL R5 XG | 
10096 026276 006305 ASL R5 =X8 | 
10097 026300 060205 ADD R2,R5  :TIMES 10 

10098 026302 000754 BR 1$ 

10099 026304 104404 3$: INSTER 

10100 026306 000744 BR 2$ 

10102 :TEST TO SEE IF NUMBER IS WITHIN LIMITS 
10104 026310 020537 026356 4$: CMP R5,7$ 

10105 026314 101373 BHI 3$ 

10106 026316 020537 026354 CMP R5,6$ 

10107 026322 103770 BLO 3$ 

10108 026324 133705 026362 BITB 9$.R5 

10109 026330 001365 BNE 3$ 

oy} :STORE NUMBER AT SPECIFIED ADDRESS 

10113 026332 013704 026360 MOV 8$,R4 

10114 026336 010524 5$: MOV R5_.(R4)+ 

10115 026340 062705 000002 ADD #2,R5 

10116 026344 105337 026363 DECB 10$ 
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; COMPARE THE FIRST CHARACTER fg gO abides INPUT 


"E’’ CLEAR THE FLAG 


:IF THE CHARACTER IS ‘'C’' SET THE FLAG 


;SET FOR LOWER CASE INPUT 
.. S 


000 
es3 37 “tC 
23177 
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BNE S$ 
RT] 
6$: 9) 
7$: 0 
8$: 0 
9$: .BYTE 0 
10$: BYTE 0 
“BUFFER TO THE CHARACTERS i tt 
> IF THE CHARACTER IS 
.PAWCH:MOV a(SP),R5 
BICB #40, INBUF 
CMPB #°E, INBUF 
BNE 1$ 
CLRB (R5) 
BR $ 
1$: CMPB #°C, INBUF 
BNE 3$ 
MOVB #-1,(R5) 
2s: ADD #2, (SP) 
RT] 
3$: INSTE 
BR ~PAWCH 


;RETRY 


;THIS ROUTINE CONVERTS LINE SPEED (LINESP) AND 
;LINE NUMBER (SAVLIN) FOR DZLPR, DZTCR AND DZCSR 


sREGISTER USAGE. 
SET: MOV 
XTCRO: MOV 
CLR 
MOV 
XTCR1: DEC 
BM] 
ASL 
BR 
SET1: MOV 
MOV 
1$: CMP 
BEQ 
TST 
BNE 
TYPE 
MOV 
BR 
2$: MOV 
3$: RTS 


SAVLIN,NUMLIN 
SAVLIN,RO 
NUMTCR 

#1,R2 

RO 
SET1 
R2 
XTCR1 
#TABLE2,R1 
R2,NUMTCR 
(R1)+,LINESP 
2$ 

(R1>+ 

1$ 


-MINVAL 
#BAUD ,R5 


3 
(R1),SPEED 
R5 


:1F NOT, 


;SAVE SAVLIN 

;COPY THE LINE NUMBER FOR LOOP CONTROL 
;SET A DEFAULT OF LINE O OR NO LINES 
;SET A BIT POINTER TO THE FIRST LINE 


sREDUCE THE INDICATOR.IS IT MINUS YET? 


;IF SO, R2 POINTS TO THE RIGHT LINE 
MOVE THE POINTER TO THE NEXT LINE 
;GO SEE IF THIS LINE IS THE ONE 


;COPY THE CORRECT BIT POINTER 


ong IT THE END OF TABLE? 


:NO 
; INVALID BAUD RATE,BEGIN AGAIN 
; JUMP TO BAUD THRU R5 


;SET UP BAUD RATE 


ee ee eee eee ee ee -—™ ~ - — 
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10173 ;THE FOLLOWING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR) 
10174 026534 000062 TABLE2: .WORD 50. ;50 BAUD 

10175 026536 010070 .WORD 10070 : 

10176 026540 11 -WORD 7 ;75 BAUD 

10177 026542 010470 .WORD 10470 

10178 026544 15 .WORD 110, 7110 BAUD 

10179 026546 011070 .WORD 11070 ;TwO S70P BITS 
10180 026550 20 -WORD 135. 2134.5 BAUD 

10181 026552 011470 .WORD 11470 :TwO STOP BITS 
10182 026554 226 .WORD 150. :150 BAUD 

10183 026556 012070 .WORD 12070 :TWO STOP BITS 
10184 0265 54 .WORD 300 :300 BAUD 

10185 026562 012430 .WORD 12430 ZONE STOP BIT 

10186 026564 001130 .WORD 6 :600 BAUD 

10187 026566 013030 .WORD 13030 :ONE STOP BIT 

10188 026570 002260 “WORD 12 :1200 BAUD 

10189 026572 013430 .WORD 13430 [ONE STOP BIT 

10190 026574 003410 .WORD 18 ;1800 BAUD 

10191 026576 014030 -WORD 14030 :ONE STOP BIT 

10192 02 003720 .WORD 20 ;2000 BAUD 

10193 026602 014430 -WORD 14430 :ONE STOP BIT 

10194 02 54 .WORD 24 :2400 BAUD 

10195 026606 015030 -WORD 15030 [ONE STOP BIT 

10196 026610 007020 WORD 36 :3600 BAUD 

10197 026612 015430 WORD 15430 :ONE STOP BIT 

10198 026614 011300 WORD 48 :4800 BAUD 

10199 026616 016030 WORD 16030 :ONE STOP BIT 

10200 026620 016040 WORD 72 7200 BAUD 

10201 026622 016430 .WORD 16430 :ONE STOP BIT 

10202 026624 022600 .WORD 9600. ;9600 BAUD 

10203 026626 01707 WORD 17070 

10204 026630 177777 000000 WORD -1, STABLE TERMINATOR 
10206 

10207 026634 000000 WCHFLG:0 ;ECHO OR CABLE FLAG 
10208 026636 000000 STFLG: 0 :PROGRAM START FLAG 
10209 026640 000000 LOCKUP: 0 : TIMEOUT FLAG 

10210 026642 000000 LAST: 0 “LAST ERROR PC 
10211 026644 000000 TDATA: 0 

10212 026646 RDATA: 0 

10213 026650 00000 BYTCNT: 0 

10214 026652 000156 LINESP: 110, ;DEFAULT BAUD RATE 
10215 026654 006307 SPEED: 6307 {DEFAULT 110 BAUD. 8 BITS/CHAR, 
10216 :FDX, 2 STOP BITS 
10217 026656 000100 NUMLIN: 100 ;DEFAULT VALUE, REC. INTERRUPT ENABLED 
10219 026660 1 NUMTCR: 1 ;DEFAULT VALUE,TCR BIT 0 
10220 026662 000240 PRIO: 240 :DEFAULT DEVICE PRIORITY 5 
10221 026664 RECDAT: 0 

10222 02 TBUF: 0 

10226 026670 053200 041505 047524 MVECTO: .ASCIZ <200>/VECTOR ADDRESS- / 

10227 Q26712 041600 047117 051124 MREGAD: .ASCIZ <200>/CONTROL REGISTER ADDRESS~ / 
10228 026746 050200 051501 020123 MPASS: .ASCIZ <200>/PASS DONE./ 

10229 026762 044600 053116 046101 MINVAL: .ASCIZ <200>/ INVALID BAUD RATE ~ / 

10230 027010 046200 047111 035105 MLINE: .ASCIZ <200>/LINE 

10231 097020 041200 052501 020104 MSPEED: 7ASCI2 <200>/BAUD RATE = / 


SEQ 0108 
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| 10S 86 027036 05220C 050131 020105 MCHAR: .ASCIZ <200>/TYPE A CHAR. ON DZ11 TERMINAL / 
102335 027076 3600 044510 4103 MWHICH: .ASCIZ <200>/WHICH TEST ? ECHO OR CABLE (E OR C) / 
| 10234 027144 052200 051105 044515 MTERM: .ASCIZ <200>/TERMINAL awe TEST / 
| 10235 027171 200 040503 046102 MCABLE: .ASCIZ <200>/CABLE_TEST / 
10236 027206 006777 177777 177412 MQUICK: .ASCII ee cele meee hee ne ae 
— 10237 027215 124 042510 050440 «ASCII /THE QUICK_BROWN FOX JUMPED OVER THE | AZY DOGS BACK 0123456789/ 
— 10238 027312 006777 177777 177412 ASCII <377><15><377>€377><12-<377><377><3779<0> 
10239 027324 -EVEN 
10243 LRA REE REREERER EERE EEE EERE EE 
10244 UTILITIES 
10245 DL EERE REE ERROR ERE 
10246 
10247 ; THIS saat ta o>: thm PRIORITY LEVEL,SETS UP CSR*S,SETS UP VECTORS. 
10248 027324 006337 027532 DZLEV: DZPR ;BUILD PRIORITY IN THIS LOCATION 
10249 027330 006337 027532 ASL DZPRI sUSING ARITHMETIC SHIFTS, ROTATE 
10250 027334 006337 027532 ASL DZPRT ; THE PRIORITY LEVEL PAST 
10251 027340 006337 027532 ASL DZPRT ; THE BIT POSITIONS CORRE- 
10252 027344 006337 027532 ASL DZPRT SPONDING TO THE CONDITION CODES 
10255 0273550 0157357 027532 27554 MOV DZPRT,LESS1 ;MOVE THIS TO LESS1 
10254 027356 162737 000001 027534 SUB #7,LESS1 ;CREATE THE NEXT LOWEST PRIORITY 
10255 027 042737 000037 027534 BIC #37,LESS1 : INSURE THAT THE TNZVC BITS ARE CLEAR 
10256 027372 013700 002072 MOV DZRIV,RO sPLACE THE BASE VECTOR ADDRESS IN RO 
10257 027376 062700 000002 ADD #2,R0 ;CALCULATE THE RECEIVER INTERRUPT STATUS ADDR. 
10258 027402 010037 002074 MOV RO,DZRIS ; E IT HERE 
10259 027406 2700 000002 ADD #2,R0 ; CALCULATE THE TRANSMITTER INTERRUPT VECTOR 
10260 027412 010037 002076 MOV RO,DZTIV STORE IT HERE 
10261 027416 062700 000002 ADD #2,R0 ;CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS 
lasek 027422 010037 002100 MOV RO,DZTIS STORE IT HERE 
10264 ;THIS SEGMENT SETS UP POINTERS FOR THE GIVEN DZ11. $BASE IS THE BASE ADDRESS 
10265 ;OF THE DEVICE 
0266 027426 013700 001310 MOV $BASE ,RO ;COPY THE ADDRESS BEING LOADED 
10267 027432 010037 002042 MOV RO,DZCSR 5 XXX0 
10268 027436 005200 INC RO 
10269 027440 010037 002044 MOV RO,HDZCSR 5 XXX 
10270 027444 005200 INC RO 
10271 027446 010037 002046 MOV RO ,DZRBUF > XXX2 
10272 027452 010037 002052 MOV RO,DZLPR sXXX2 
10273 027456 5200 INC RO 
10274 027460 010037 002050 MOV RO ,HDZRBUF 5 XXX3 
10275 027464 010037 002054 MOV RO,HDZLPR 5 XXX5 
10276 027470 5200 INC RO 
10277 027472 010037 002056 MOV RO,DZTCR 5 XXX4 
10278 027476 005200 INC R 
10279 027500 010037 002060 MOV RO,HDZTCR 5 XXX5 
10280 027504 005200 INC RO 
10281 027506 010037 002062 MOV RO,DZMSR 5 XXX6 
10282 027512 010037 002066 MOV RO,DZTDR > XXX6 
10283 027516 005200 INC RO 
10284 027520 010037 002064 MOV RO,HDZMSR 5X7 
10285 027524 010037 002070 MOV RO,HDZTDR 2 XXX7 
10286 027530 000207 RTS PC 
10287 027532 000240 DZPRT: PR5 
10288 027534 000200 LESS1: PR4 sLEVEL TO ALLOW INTERRUPTS 
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| 10291 ;ERROR ERROR TABLE t 
| 10292 027536 000000 -ERRTAB: 0 . ZERROR 0 i! 
10293 027540 000000 0 | 
10598 027542 000000 0 
10296 027544 027756 EM) ; ERROR 
10297 027546 031226 DH1 
10298 027550 031424 DT1 
10299 
10300 027552 050031 EM2 ;ERROR 2 
10301 027554 031251 DH2 
ioane 027556 031436 DT2 
10304 027560 030057 EMS ERROR 3 
10305 027562 0313504 DH3 
1O8OF 027564 031454 DT3 
10308 027566 030116 EM4 ERROR 4 
10 027570 031504 DH 5 
+t a4 027572 031454 DT3 
10312 027574 030145 EMS ERROR 5 
10313 027576 031316 DH4 
AOeie 027600 031462 DT4 
10316 027602 030174 EM6 sERROR 6 
10317 027604 031516 DH4 
ats 027606 031462 DT4 
10320 027610 030232 EM? ERROR 7 
10321 027612 031504 DH3 
OSs 027614 031454 DT3 
10324 027616 030273 EM8 ;ERROR 10 
10325 027620 031504 DH3 
ose 027622 031454 DT3 
10328 027624 030335 EM9 ERROR 11 
10329 027626 031504 DH3 
Sery 027630 031454 DT3 
10332 027632 030373 EM10 sERROR 12 
10333 027634 031504 DH3 
ete 027636 031454 DT3 
0336 027640 050432 EmM15 ;ERROR 13 
10337 027642 031504 DH3 
yt 027644 031454 DT3 
10340 027646 030463 EM14 ERROR 14 
10341 027650 031504 DH3 
Oat 027652 031454 DT3 
10344 027654 030515 EM15 ERROR 15 
10345 027656 000000 Q 
10346 027660 000000 0 
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030557 
031504 
031454 


031454 


030666 
031304 
031454 


050727 
031345 
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030757 
031316 
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031077 
031304 
031454 
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;ERROR 21 


sERROR 22 


sERROR 23 
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10 ;ERROR MESSAGES 
10392 027756 047200 020117 046123 EM1:  .ASCIZ <200>/NO SLAVE SYNC RESPONSE FROM DZ11 REGISTER/ 
| 10393 030031 200 042522 044507 EM2: ASCIZ <200>?REGISTER R/W FAILURE? 

10394 030057 200 057124 047101 EM3: ASCIZ <200>/TRANSMIT READY (TRDY) NOT SET/ ) 
| 10395 030116 051200 041505 044505 EM4: ASCIZ <200>/RECEIVER DONE NOT SET/ ; 

10396 030145 200 640504 040524 EMS: ASCIZ <200>/DATA COMPARISON ERROR/ ) 
| 10397 030174 042200 030532 020061 EM6: ASCIZ <200>/D211 *RECEIVER BUFFER® ERROR/ , 
| 10398 030232 052200 040522 051516 EM?: ASCIZ <200>/TRANSMITTER FAILED TO INTERRUPT/ 5 

10399 030273 200 047125 054105 EMB: ASCIZ <200>/UNEXPECTED TRANSMITTER INTERRUPT / 5 
| 10400 030335 200 042522 042503 EM9: ASCIZ <200>/RECEIVER FAILED TO INTERRUPT/ , 

10401 030373 200 047125 054105 EM10:  .ASCIZ <200>/UNEXPECTED RECEIVER INTERRUPT/ 5 
| 10402 030432 051600 046111 020117 EM13:  .ASCIZ <200>/SILO ALARM SET TOO SOON/ J 

10403 030463 200 044523 047514 £EM14:  .ASCIZ <200>/SILO ALARM FAILED TO SET/ | 

10404 030515 200 041501 044524 £—M15: .ASCIZ <200>/ACTION DETECTED ON INVALID LINE./ | 

10405 030557 200 042522 042101 EM16:  .ASCIZ <200>/READING DZRBUF DID NOT CLEAR SILO ALARM/ 

10406 030630 042200 052101 020101 EM17: .ASCIZ <200>/DATA VALID SHOULD NOT BE SET/ 

10407 03 051200 041505 044505 EM20: .ASCIZ <200>/RECEIVER DONE SHOULD NOT BE SET/ 

10408 030727 200 042522 040514 EM21:  .ASCIZ <200>/RELATIVE TIMING ERROR. / 

10409 030757 200 047515 042504 EM22:  .ASCIZ <200>/MODEM SIGNAL ERROR ON CABLE TEST/ 

10410 031021 200 040504 040524 EM23:  .ASCIZ <200>/DATA VALID IS NOT SET!/ 

10411 031051 200 040504 040524 EM24:  .ASCIZ <200>/DATA OVERRUN IS SET!/ 

10412 031077 200 051106 046501 EM25:  .ASCIZ <200>/FRAMING ERROR OCCURRED/ 

10413 031127 200 040520 044522 EM26: .ASCIZ <200>/PARITY ERROR OCCURRED/ 

10616 031156 043200 046125 020114 EM27:  .ASCIZ <200>/FULL BINARY COUNT PATTERN NOT RECEIVED/ 

10416 031226 052200 040522 020120 DH1: ASCIZ <200>/TRAP PC DZ11 REG/ 

10417 031251 200 054105 042520 Dxe: ASCIZ <200>/EXPECTED FOUND REGISTER/ 

10418 031306 046200 047111 020105 DH3: ASLIZ <200>/LINE NO./ 

10419 031316 042600 050130 041505 DH4: ASCIZ <200>/EXPECTED FOUND LINE/ 

10420 031345 200 054124 046040 DHS: ASCIZ <200>/TX LINE PREVIOUS TIME ACTUAL TIME PARAMETER/ 

10422 EVEN 

10426 ;DATA TABLES FOR ERROR MESSAGES 

10427 031424 000002 DT1: 2 

10428 031426 006 003 -BYTE 6,3 

10429 031430 001204 $REG1 

10430 031432 006 001 .BYTE 6,1 

10431 031434 001202 $REGO 

10432 

10433 031436 000003 DT2: 

10434 031440 006 004 -BYTE 6,4 

10435 031442 001214 $REGS 

10436 031444 006 001 -BYTE 6,1 

10437 031446 001212 $REG4 

10438 031450 006 001 -BYTE 6,1 

10439 031452 001202 $REGO 

10440 

10441 031454 000001 DT3: 31 

10442 031456 003 001 -BYTE 3,1 

10443 031460 001372 SAVLIN 

10444 

10445 031462 000003 DT4: 

10446 031464 006 004 .BYTE 6,4 

10447 031466 001214 $REGS 

10448 031470 006 001 -BYTE 6,1 

10449 031472 001212 $REG4 
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10650 031474 002 001 .BYTE 3,1 4 
10451 031476 001372 SAVLIN } 
) 

10453 031500 000004 wtS< 4 i 
10454 031502 003 005 .BYTE 3,5 ') 
10455 031504 001372 SAVL IN ) 
10456 031506 006 011 ‘BYTE 6,9. , 
10457 031510 001214 $REGS ) 
10458 031512 006 007 _BYTE 6,7 . 
10459 031514 001220 $TMP1 | 
10460 031516 006 001 _BYTE 6,1 if 
10461 031520 001400 REGIST r 
10468 : TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES | 
10470 
10471 031522 002450 DLYTBL: 2450 :TIME FOR 50 BAUD 
10472 031524 001560 1560 “TIME FOR 75 BAUD 
10473 031526 001120 1120 -TIME FOR 110 BAUD 
10474 031530 000750 750 “TIME FOR 134 BAUD 
10475 031532 0006 660 “TIME FOR 150 BAUD 
10476 031534 000330 330 TIME FOR 300 BAUD 
10477 031536 50 150 -TIME FOR 600 BAUD , 
10478 031540 000060 60 TIME FOR 1200 BAUD 
10479 031542 000040 40 “TIME FOR 1800 BAUD 
10480 031544 000030 ° -TIME FOR 2000 BAUD , 
10481 031546 000020 20 = TIME FOR 2400 BAUD , 
10482 031550 000010 10 -TIME FOR 3600 BAUD } 
10483 031552 000001 = TIME FOR 4800 BUAD , 
10484 031554 000001 1 TIME FOR 7200 BAUD , 
10485 031556 000001 1 =TIME FOR 9600 BAUD , 
10486 931560 000001 1 “TIME OF DELAY FOR 19200 BAUD 

10488 :DELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE 

10489 -FOR ALL TESTS TO FUNCTION CORRECTLY ON A PDP11/45 WITH BIPOLAR 

10490 “MEMORY. THE TIMES WERE ALSO TESTED ON AN 11/40 AND 11/10. 

10492 031562 CORMAX : 

10496 091512 _=MANTO 

10497 001512 100000 100000 

10498 000001 END 
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ABASE = 160010 82094 8616 
ACDW1 = 000000 8616 

ACDWe = 000000 8616 

ACPUOP= 000000 8616 

ACTIVE 001412 86164* 8617* 
ADDWO = 000000 8616 

ADDW1 = 000000 8616 

ADDW10= 000000 8616 

ADDW11= Q00000 8616 

ADDW12= 000000 8616 

ADDW13= 000000 8616 ‘ 
ADDW14= 000000 8616 

ADDW15= 000000 8616 

ADDW2 = 000000 8616 

ADDWS = 000000 8616 

ADDW4 = 000000 8616 

ADDWS = 000000 8616 

ADDW6 = 000000 8616 

ADDW7 = 000000 8616 

ADDW8 = 000000 8616 

ADDW9 = 000000 8616 

ADEVCT= 000000 8616 

ADEVM = 000000 8616 

ADRCNT 5 86174#* 
ADVANC= 104400 oth 8622 8654 8716 8730 8770 8779 8858 9186 9280 9511 9552 9609 
AENV = 000000 8616 

AENVM = 000000 8616 

AFATAL= 000000 8616 

AMADR1= 000000 8616 

AMADR2= 000000 8616 

AMADR3= 000000 8616 

AMADR4= 000000 8616 

AMAMS1= 000000 8616 

AMAMS2= 000000 8616 

AMAMS3= 000000 8616 

AMAMS4= 000000 8616 

AMSGAD= 000000 8616 

AMSGLG= 000000 8616 

AMSGTY= 000000 8616 

AMTYP1= 000000 8616 

AMTYP2= 000000 8616 

AMTYP3= 000CO0 8616 

AMTYP4= 000000 8616 

APASS = 000000 8616 

APRIOR= 000000 8616 

APTCSU= 000040 86174 
APTENV= 000001 86174 
APTSIZ= 000200 86174 
APTSPO= 000100 86174 
ASWREG= 000000 8616 

ATESTN= 000000 8616 

AUNIT = 000000 8616 

AUSWR = 000000 8616 

AUTO.S 012264 8616 86174 
AVECT = 000300 82104 
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AVECT1= 000000 8616 
AVECT2= 000000 8616 

024706 98454 10166 
BINWRD 007120 86178 
BITO = 000007 86164 8655 8732 9609 9610 
BITOO = 000001 8616# 
BITO1 = 000002 86164 
BiTO2 = 86164 
BITO3 = 000010 86168 
BITO4 = 000020 86168 
BITOS = 0 86164 
BITO6 = 000100 B616# 
B1T07 = 000200 86168 
BITO8 = 000400 86 16# 
BITO9 = 001000 861 
BIT] = 000002 B616# 8655 
BIT10 = 002000 86164 8655 
BIT11 = 86164 8617 8655 8697 
BIT12 = 010000 86164 10031 
BIT13 = 020000 86164 9935 10028 
BIT14 = 040000 86164 8617 10025 
BIT15 = 100000 86164 861 
BIT2 = 000004 86164 8655 
BIT3 = 000010 86164 9602 9604 
BIT4 = 000020 86164 9602 
BITS = 0 86164 8617 
BIT6 = 000100 86 16M 
BIT? = 000200 86164 8617 
BIT8 = 86164 8655 
BIT9 = 001000 86164 8655 
BPTVEC= 000014 86164 | 
BRKO = 000400 86 16M 
BRK1 = 001000 8616# 
BRK2 = 002000 8616s | 
BRK3 = 004000 86164 
BRK4 = 010000 8616# 
BRKS = 020000 86164 
BRK6 = 040000 8616# 
BRK7 = 1 8616# : 
BRW 005372 8616 8617# 
BUILD 024200 .- 
BYTCNT 026650 102134 ‘ : 
CHRCNT 007116 86174 ‘ 
CNVRT = 104412 86164 8617 
CONVRT= 104411 8617 
CORMAX 031562 104924 10493 
COUNTO 024056 9609* 9610*  9640*  9648M 
COUNT! 024060 9609* 9610" 9641* 9649 
COO = 000400 86 16# 
Col = 001000 86 16M 
Co2 = 002000 8616s 
CO3 = 004000 86 16H 
C04 = 010000 86 16# 
CoS} = 020000 86 16M 
C06 = 040000 86 16M 
co7 = 100000 86164 
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CR = 000015 86164 8617 

CRLF = 200 86164 8617 

CSRMAP 012272 86174 

CYCLE 011542 8616 86174 

DATABP 7512 8617#* 

DATAHD 7500 8617#* 

DCLASM= 104417 86168 $811 8875 8936 9021 9062 9063 9075 

DCLR = 2 86164 8617 8630 8668 8680 8688 

DDISP = 177570 86164 

DELAY = 104414 86164 8617 8655 8742 8748 8785 8791 8799 
8951 8974 8992 9047 9062 9063 9101 9109 
9332 9352 9897 9983 

EV 006642 8617#* 

DEVICE= 104413 86164 17 8652 8653 8654 8666 8697 8698 
9492 853 9886 9907 9910 9950 9972 9992 

DH1 031226 10297 104164 

DH2 031251 10301 104174 

DH3 031304 10305 10309 10321 10325 10329 10333 10337 #10341 
10377 10381 10385 104184 

DH4 031316 10313 10317 10365 104194 

DHS 031345 10361 104204 

DISPLA 001162 86164* 8617* 

DISPRE 000174 86164 

DLYCNT 007214 8616* 86174 9407 

DLYTBL 031522 8616 104714 

DONFLG 001420 86164  8934* 8966 8988« 

DSWR = 177570 86164 

DTRO = 00 86164 8654 

DTR1 = 001000 86164 

DTR2 = 002000 86164 

DTR3 = 000 86164 

DTR4 = 010000 86164 

DTRS = 020000 86164 

DTR6 = 040000 1 

DIR7Z = 86164 

DT1 031424 10298 104274 

DT2 031436 10302 1043 

DT3 031454 10306 10310 10322 10326 10330 10334 10338 10342 
10378 1038 10386 104414 

DT4 031462 10314 10318 10366 104454 

DTS 031500 10362 104534 

DVALID= 100C00 86164 8697 8832 8902 9043 9255 9630 

DZACTV 001404 86164* 8617* 

DZCRO 1500 86164 8617 

DZCR1 001514 86164 

DZCR10 001640 86164 

DZCR11 001654 86164 

DZCR12 001670 86164 

DZCR13 1704 86164 

DZCR14 001720 86164 

DZCR15 1734 86164 

DZCR16 001750 86164 

DZCR17 001764 86164 

DZCR2 001530 86164 

DZCR3 001544 86164 


9161 


8823 
9173 


8718 
10016 


10349 


10350 


9201 
8836 
9180 


8799 


10353 


10354 


9309 
8852 
9222 


8995 


10357 


10358 


eee 


9381 
8893 
9258 


9062 


10569 


10570 


SEQ 0116 


9553 


8906 
9248 
90653 


10373 


10374 


i. . Mie 
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CZDZA=GO MACY11 30A(1052) 24=JUN-81 09:46 PAGE 87-3 SEQ 0117 | 
CZDZAG.P11 24-JUN-81 09:45 CROSS REFERENCE TABLE <= USER SYMBOLS | 
DZCR4 001 86.164 
DZCRS 001574 86164 { 
DZCR6 001610 86164 ‘f 
DZCR7 001624 86164 
DZCSR 002042 86164  8617* 8622 8629 8652 8655 8667 8799 8813* 8817 8821 8834 8855 

8862 88835* 8887 8891 &904 8947* 8949 8977 8998 9033* 9045 9062*  9063* 

9080* 9094 9099 9107 9113 9118* 9119% 9148* 9162* 9171 9177* 9183 9208* 


9215 9220 9230 9236 9260 9286* 9290* 9295*  9318* 95330 9340 9346 9350 
it4y 9400* 9401* 9422 9447 9455 9586* 9588 9609* 9610* 9642 9646*  9679* 


% 9741* 9826 9829 9892 9895  9919% 9929 9947* 9955  9961*  9996* 10019 | 

10054 10267* 
DZLEV 027324 8617 102484 
DZLPR 002052 86164 8655"  8697* 8811= 8875* 8940* 9027  9062* 9063* 9075" 9161* 9201" 9309 ' 

9387" 9555*  9566* 9609 9610* 9831"  9891* 9915" 10003* 10272 
DZLVO 1504 86164 
DZLV1_ 001520 86164 | 
DZLV10 001644 86164 | 
DZLV11 001660 86164 | 
DZLV12 001674 86164 
DZLV13 001710 86164 | 
DZLV14 001724 8616s | 
DZLV15 001740 : 
DZLV16 001754 86164 ! 
DZLV17 001770 86164 
DZLV2 1534 86164 
DZLV3 001550 8616s 
DZLV4 001564 8616 
DZLV5 1 86164 
DZLV6 001614 8616# 
DZLV7 001630 8616s 
DZMSR 002062 86164 8622 8698 8717 8773 9838* 9984 10281 
DZNUM 001410 B6164* 8617% 
DZPRT 027532 8617* 9062" 9063 9077 9079 9583 9584 9609 9610 10248* 10249* 10250" 10251 

10252e 10253 102874 
DZRBUF 002046 86164 8622 8697 8840 8881 8910 8981 9002 9034 9051 9091 9129 9256 

12320 9323 9450 9615 9626 9702 9707 9829% 9830" 9831 9832 9932 10022 

* 
DZRIS 002074 B61G# 9062" 120638 9077" 9149  9150% 9317"  9396* 9507 9508* 9583* 9609* 9610+ 
a * ad 

DZRIV 002072 86164  8617* 9062* 9063" 9076* 9149" 9316* 9345 9395" 9507* 9582" 9609* 9610s 

9818 9916*  9997* 10256 


DZTCR 002056 86164 8622 8653 8654 8655* 8799* 8816* 8545" 8886*  8917* 8946* 8964" 8972s 


125888 9585*  9609* 9610*  9677* 9832* 9833" 9834 9836 9888» 9954»  9962* 10005 

7 

DZTDR 002066 86164 8698"  8827* 8864" 8897*  8969* 9039%  9062* 9063* 9105* 9178* 922+ 9298 

9336* 9348  9439*  9664%  9836* 9837* 9838  9902* 9960+ 10057" 10282 

DZTIS 002100 186164 9062" 9063" 9079* 9151 9152" 9398* 9509 9510+ 9584*  9609*  9610* 10000 
* 

DZTIV 002076 86164 9062" 9063* 9078* 9151* 9287" 9397* 9509 9581 9609% 9610" 9999 10260* 

DZV = weeewes {| 8617 

DZ7vcO) =: 001502 86164 8617 

DZVC1 001516 86164 

DZVC10 001642 86164 

DZVC11 001656 86164 

DZvC12 001672 86164 





mm mn eas Se eee eee ee —_—_ —_——- 


B 10 


CZDZA=GO MACY11 30A(1052) 24=JUN@81 09:46 PAGE 87=4 SEQ 0178 
C2D7AG.P11 — 24=JUN-81 09:45 CROSS REFERENCE TABLE == USER SYMBOLS 
DZVC13 00170 BE 16e 

DZVC14 001722 6168 

DZvC15 001736 16a 

DZvC16 001752 B6 16a 

D2VC17 001766 6168 

DZvC2 001532 86168 

DZVC3 001546 86168 

DZvC4 001562 86168 

DZVC5 001576 86" 

DZVC6 = -:001612 B616e 

DZVC7 001626 86168 

DZ.END 002000 B616# 8617 

DZ.MAP 001500 8616" 8617 

EIAFLG 001414 86168 8617* 8656 8714 8771 
EIGHT = 000030 86164 9538 9547 
EIGHTS= 000070 8616s 

EMTVEC= 0000 86164" 

EMI 027756 10296 10392 

EM10 ~—«-: 03037 10332 10401" 

EM13 = 030432 10336 10402 

EM14 63 10340 104034 

EM1S 030515 10344 10404e 

EM16 030557 10348  10405¢ 

EM17 —- 030630 19352 10406# 

EM2 030031 10300 10393 

EM20 3 10356 10407 

EM21 030727 10360 104084 

FM22 030757 10364 10409" 

EM23. «031021 10368  10410# 

EM24 031051 10372 104114 

EM25 =: 031077 10376 104128 

EM26 031127 10380 104134 

EM27 ~—s-: 031156 10384 10414 

EM3 030057 10306 10394# 

EMG 0307 16 10308  10395# 

EMS 030145 10312 10396# 

EMO 030174 10316 103978 

EM7 030232 10320 103984 

EM8 030273 10324  10399# 

EMS 030335 10328  10400# 
ERRMSG 007466 86174 

ERRVEC= 8616# 8617 
ERTABO 007636 86174 

EVEPAR= 86164 

EXITER 007572 86178 

FINI 022444 9418 9506# 

FIVE = 86 16m 

FIVES = 000040 86164 

FRMERR= 020000 86164 9043 94661 9705 
HALTS 007516 86174 

HDRFLG 001416 86 16H* 

HDZCSR 002044 B616# 8681" 8955 94625 9655 10269 
HDZLPR 002054 86164 10275* 
HDZMSR 064 8616# 10284 
HDZRBU 002050 B616# 10274 


HDZTCR 002060 86164  8741* 8747" 8784+ 8790" 9834" 9835" 9978+ 10279 


ee ares pihinenagnenennnee ene ia 
30A(1052) 
81 09:45 


| CZ7DZA=GO0 
CZ7DZAG.P11 
HDZTOR 002070 
HILIM 006640 
HT = 17 
] 11272 
INIFLG 001415 
INIT 021724 
INIT 021750 
INSTER= 404 
INSTR = 104403 
INSTR2 40 
INTRAN 026130 
INTREC 025750 
INTSVC 025314 
IOTVEC= 20 
LAST 026642 
LESS1 027534 
LF = 000012 
LIMITS 006566 
L INE 001 364 
LINESP 026652 
LINEX 024724 
LINEO 001506 
LINE1 001522 
LINE1O0 001646 
LINE11 001662 
LINE12 001676 
LINE13 001712 
LINE14 001726 
LINE1S 001742 
LINE16 001756 
LINE17 001772 
LINE2 001536 
LINES 001552 
LINES 001566 
LINES 001602 
L INE6 001616 
LINE7 001632 
LOBITS 4 
LOCK 001362 
LOCKUP 026640 
LOLIM 36 
LPO = 000000 
LP1 = 000001 
LP2 = 000002 
LP3 = 000003 
LP4 = 000004 
LPS = 000005 
LP6 = 000006 
LP7 = 000007 
MAINT = 000010 
MANTO 001512 
MANT 1 001526 
MANT10 001652 


C 10 


24-JUN-81 09:46 PAGE 87-5 
CROSS REFERENCE TABLE == USER SYMBOLS 

9038+ 9055* 160285- 

8617 
9940 9941 9948 10080 10132" 10133 10137 

8617* 
9390 
9394 
8617 10099 10142 
8617 9813 982) 9B41 9845 9855 
100544 
100184 
99298 
B617* 
10067" 102104 
ott 9918* 100046" 19253* 10254" 10255" 102884 
8617* 8725 8775 8799 8814 8814 8875 8884 
9075 82 9767 9164 9201 9209 9309 9320 
0496 9539 9609 9610 
10167 1921484 
9925 10012 
8617* BE22* 8653* R654" 8713*  8767* 8810* 8874* 
9372 9533 9977 
10013* 10018" 102094 
8617 8652 8669 8682 

8617 10496 


—_— -—--4 


SEQ 0119 
| 
8945 9025 9035 9062 
9382 9385 9402 9435 
89235* 9018*  9061* 200+ 


| bee se ee ———— em ee me ee oe = _— <= 
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CZ7DZ7A=GO MACY11 a fa 24=JUN“81 09:46 PAGE 87-6 SEQ 0120 
C7DZAG.P11 24-JUN-8) 745 CROSS REFERENCE TABLE == USER SYMBOLS 
MANT11 001 86164 
MANT12 001702 86164 
MANT135 001716 86164 
MANT14 001732 86164 
MANT15 001746 86164 
T16 001762 86164 
MANT17 001776 86164 
MANT2 001542 86164 
MANTS 001556 86164 
MANT 001572 86164 
MANTS 001606 86164 
MANT6 001622 26164 
MANT 7 1636 86164 
MASTEK 010766 86178 
MBADLN 011075 8616 86178 
MCABLE 027171 9874 102354 
MCHAR 027036 9920 102324 
MCSRX 010716 86174 
MDATA 011376 86174 
MEPASS 010535 86174 
MERRPC 011043 86174 
MERRX 010743 86174 
MERR2 010574 86174 
MERR3 010643 8616 86178 
MINVAL 026762 10165 102298 
MLINE 27010 9856 102304 
MLOCK vy 7 8616 86174 
W 010771 8616 86174 
MNTFLG 001417 86164 8617 
MODE 001370 86164 8617" 8721 8768 8829 8899 9019 9041 9133 9253 9556 9609 9610 
MPASS 026746 10066 102284 
MPASSX 010732 86174 
MPFAIL 010472 86174 
MQUICK 027206 9894 102364 
010560 8616 86174 
MREGAD 026712 9822 102274 
MSENAB= 000040 86164 8652 8655 86469 8682 8799 8813 8883 8947 9033 9062 9063 9080 
9162 9177 9208 9286 9295 9318 9401 9586 9609 9610 9741 9892 9919 
9947 9961 9996 
MSPEED 027020 9846 102314 
MTERM 027144 9880 102344 
MTITLE 1 86164 
MTSTN 010754 86174 
MVECTO 026670 9814 102264 
MVECX 010724 86174 
MWHICH 027076 9842 ott 
NE XT 001360 86164 8617 B622* 8628+ 8652" 8653* 8654+ 8655* 8665* 8697* 8698 8713" 8723 


8767* 8799" 8810" 8874" 89335" 9017* 9062* 9063* 9074s 9160" 9199* 9307* 9380+ 
9532* 9609* 9610" 9909" 9971* 


NOLIST= s#e#e8 YJ 8612 

NUMLIN 026656 9889 9911 9994 10151* 102174 

NUMTCR 026660 9888 9954 9978 9980 9982 10005 101535* 10160* 102194 
ODDPAR= 000200 86164 9023 9609 9610 

OFFSET 024440 9534* 9549" 9597" 9730 9732 97438 

ONESTO= 000000 86164 


OTHER 024666 9805 98 39m 
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OuT 022372 9413 949148 

OVRRUN= 040000 86168 9267 9461 9705 

PAR 001366 B6168  $=8617* 8811 8875 8937 8989 9022 9062 9063 9075 9161 9201 9309 
‘epee 9609 9610 9889" 9890« 9891 99118 9912" 9914" 9915 9993" 9994" 9995* 

PARAM = 104405 B6168 £8617 9815 9823 9857 

PARAM] 006506 86178 

PARER = 010000 B6168 9043 9461 96246 9630 9705 

PARERR 006562 86178 

PARESE 023704 9609 9619 96)5@ 

PARI TY= 100 86164 9023 9609 9679 

PARMD = 104415 26164 9847 

PARO 001510 56164 

PAR1 001524 86164 

PARIO 001650 86164 

PAR11 1 BA 16a 

PAR12 001700 86164 

PAR13 001714 BE 164 

PAR14 001730 86164 

PARIS 001744 86164 

PAR16 001760 86164 

PAR17 001776 861484 

PAR2 001540 86164 

PAR3 001554 86164 

PARG 001570 86164 

PARS 001604 86164 

PAR6 001620 86164 

PAR7 001634 86164 

PAWCH = 104416 B6168 9842 

PIRQ = 177772 86168 

PIRQVE= 000240 86164 

POPRO = 012600 86164 

POP1SP= 005726 86164 

POP2SP= 022626 B6168@ $8617 9063 9142 9147 

PRIO 026662 9917 9998 10000 10220# 

PRO = 000000 86164 

PR1 = 0 86164 

PR2 = 100 86164 

PR3 = 900140 86164 

PRG = 000200 86164 10288 

PRS = 000240 86164 10287 

PR6 = 000300 86164 R 

PR7Z = 340 86164" B8622 90B7* 9317 9396 9398 9491" 9797» 9865* 9908* 9969 

PS = 177776 86164 

PSW = 177776 86164 

PUSHRO= 010046 86164 

PUSH1S= 005746 86164 

PUSH2S= 024646 86164 

PWRVE C= 24 86164~ 8617 

QUITS 025742 100164 4 

RCVON = 010000 86164 8958 9538 9541 9554 9565 9914 9995 

RDATA 026646 102124 | 

RDONE = 000200 86164 8655 8817 8834 8855 8887 8904 9045 9062 9063 9107 9183 

RECDAT 026664 9932* 9935 9939 9940 9942+ 9943 9944 10022* 10025 10028 10031 10036 . 10041» 


10042" 10043 102214 
REGIST 001400 86168 8881" 9034" 95712 9626" 10461 
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RESTAR 012106 86178 

RESVEC= 000010 86164 

RESOS = 104610 86168 8617 

RIE = 000100 86164 8652 R469 BER 2 9062 9063 9119 9148 9318 9399 9586 9588 9609 

| 9610 9646 9741 9919 9961 9996 

RINGO = 000007 86168 

RING] = 000002 86164 

RING2 = 000004 867 6a 

RINGS = 000010 R6 168 

KINGS = 000020 86164 

RINGS = 000040 R668 

RING6 = 000100 86" 

RING7 = 000200 B6 164 

RLO = 000000 86164 

RL1 = 000400 8664 

RL2 = 001000 86164 

RL3 == 001400 86168 

RLG ~=°002000 86164 

RL5 = 002400 86164 

RL6 = 003000 B6164 

RL7Z7 = 003400 86164 

RSTART 021714 93834 

RSTRT 026164 100694 

R 001406 B616a4* B86)7* 

RKISR1 024226 9582 96998 

RXSVC 022214 9395 9447@ 

RXTCR 022472 9382 94173 9485* 9° 12a 

SAVLIN 001372 B6164 8799+ BBile. 8828 B84é* 8847 8875* 8898 8918* 8919 8935* 8979* 8985* 
9000* 9004 9031 9040 9057* 9062* 9063* 9075* 9084* 9134 9161* 9166* 9201* 
9212 9252 9276s 9309 9326 9368 9429* 9454* 9472 9494* 9502* 9535* 9567* 
9568* 9609* 9670 96198 9657 9659* 9661* 9718* 9719* 9738* 9739 9860 9944 
10043 1015 101$2 19443 10451 10455 | 

SAVNUM 001411 86164* 8617 

SAVPC } =: 001402 86164 8617» 

SAVOS = 104407 86164 8617. 

SCOP1 = 104401 eae” gece 8653 B654 8753 87964 8844 8865 2914 9056 9275 9296 9367 

SERV.G 007652 861/74 9595: 9994 93924 10017 

SET 026440 9863 101514 

SETAPT 012112 8616 86178 

SETFLG= 104406 86164 

SET.PS 011440 8616 86178 

SETI 026472 10156 101594 

SEVEN = 000020 86164 

SEVENS= 000060 86164 : 

SILOAL= 020000 86164 8655 9230 9236 9260 9340 9350 9455 

SILOEN= 010000 B6164 8652 BEE9 9298 9286 9295 93178 

SIX = 000010 86164 

SIxS = 000050 86164 

022044 94064 9486 

SPACNT 007117 86174 

SPEED 026654 9890 9912 9993 10168" 102154 

SPIN 025710 100084 10014 10051 

STACK = 001120 86164 8617 9796 9866 


STFLG 026636 9799" 9854" 9871 9873* 9877 9879* 102084 
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C2DZAG.P11 ——- 26=JUN=81 09:45 CROSS REFERENCE TABLE == USER SYMBOLS 
—STKLMT= 177776 84164 

STOP 001462 R616" 8878 9206 9312 9393 9546 9576 9609 9610 
S$v05 ©: 006654 B61 78 

'SwR 01160 Belém 8617" 9806 9839 9905 
SWREG 000176 86168 

'SwO = 000001 B6 168 

SwOO = 000001 B616# «9806 
swO1 = 000002 Bo16@ R617 BS 
SwO2 = 000004 B6 168 

swO3 = 000010 B616a 

Sw04 = 000020 Bé16e 

swOS = 0 R6 16m 

Sw06 = 000100 86) 

SwO7? = 000200 B6 168 

SwO8 = 000400 B616@ = 8617 

swO9 = 001000 B616# = 8617 

Swi = 000002 86168 

SW10 = 002000 R616" 861? 

SW11 = 004000 86164 

SwI2 = 010000 S616 8617 

SWw13 = 020000 R616a@ = 8677 

Sw14 = 040000 B6 16a 

SWw15 = 100000 86 16a 

Sw2 = 000004 B6 16a 

sw3 = 000010 B61ta 

Sw = 000020 B61 be 

sw5 = 000040 B61 

Sw6 = 000100 BE 16a 

Sw7 = 000200 86168 

SWB = 000400 86168 

Sw9 = 001000 Bo 16a 

S110 = 001000 Be 168 

$1200 = 003400 BO 16a 

$134 = 001400 86168 

S150 = 002000 B6 16a 

51800 = 004000 B6 168 

$19200= 007400 86168 

$2000 = 004400 86168 

$2400 = 005000 B6 16a 

$300 = 002400 B6 168 

$3600 = 005400 86168 

$4800 = B6 16a 7 

$50 = 000C00 Belée 9538954" 
$600 = 003000 Bo 168 

$7200 = 006400 B6 168 

S75. = 000400 B6 168 

59600 = 007000 

TABLE2 026534 10159 10174e 

TBITVE= 000014 86168 

TBUF 026666 9939" 9960 10222« 
TCRO = 000001 Bo16# 8653 BESS 
TCR1 = 000002 B6 168 

TCR2 = 000004 B6 168 

TCR3 = 000010 B6 168 

TCR4 = 000020 B6 16a 

TCRS = 0 86168 


PEE COD OD 8 OD «Ol OPRIRBED ES BO 2 ee Tee & wee ee ee 
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TCR6 = 000100 84168 

TCR? = 000200 B6 164 
‘TDATA 026644 102118 

TDO 001422 86" RR 74, R897 8901 8915" 9062 9063 9202 9226 9227+ 9310 9336 9337 
| 9338 9348 939° 9439 94408 9542 9572 9609 9610 9664 9665* 9669 
| TO 001424 R6 168 

T 001426 86168 

TD 001430 R6 16a 

TDS 001432 8616" 

TDS 001434 86 168 

TD6 001436 861464 
1p7 001440 26168 

TEIGHT 0021460 5668 

TEMP 011334 86178 

TESTI 025054 9876 GRE46RQ 09906 

TEST2 025512 9870 99698 

TFIVE 002146 86168 - 

TIE = B6168 8652 BHEG HOHE 9063 9°78 9148 9290 9295 9400 9586 9609 9610 

9642 9679 FI 

TKVEC = 86164 

TLAST = 023444 8617 10466464 

1O CO li«Ct 86164 

TL1 = 000400 B6 16a 

TL2 = 001000 B6 144 

™3 #8= 001400 B46 14a 

TLS = 002000 86168 

TS 8 8== 002400 86168 

T6 == 003000 86164 

7 =60= 90034600 8616" 

T™TBL 002102 B6168 G73ie G75 97%7 

TPVEC = BE 16a 

TRAPVE= 000034 86164 

TRDY = 100000 B6164 8655 R799 RA?" BBEC R91 9062 9063 9220 9330 66. 9346 

TRIVEC= 000014 861464 

TRO 001442 oo 16" 947% 34 76 94828 9483 9498 9429 9632 9634 9638* 9713 9715 97218 
TRI 001444 846164 
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TST21 0154046 8799 Ba° Os 
‘Tst22 015762 8810 8B 74a 

TST2 016270 BB74 R9733a 
TST24 016622 R935 90178 

TST25 §=017100 9017 90628 
TST26) 3 =60174610 9062 906 

TST27 3 §=6017736 9063 9074a 

TST3 013322 8628 86528 

TST3O 020370 9074 7'608 

TST31 020556 9760 91998 

TST32 21304 9199 930 7a 

TS733 21666 9307 93808 

TST340 = 02.2.6 76 $380 95328 

TST35) =: 02.3204 9532 96098 

TST360«=—«_: 02. 34446 9609 96108 104664 

TST37 eeeeee | 9ATO 

TST4 013414 B652a 

TST5 013506 864528 

TST6 013600 86528 

TST7 013672 865-8 

TTST 005140 8616" R478 

TWOSTO= 000040 Bolom 9538 5a" 

TxSvC 022116 9397 94028 

TYPDAT 007502 846178 

TYPE 104402 B6168 86° 127% Lak akt 992. 10065 10165 
TYPMSG 007372 86178 

7110 002106 86164 

T1200 §=—.00 2120 86168 

7134 002110 RE 16a 

™150 002112 86144 

77800 3 §=6©002122 R46 168 

T2000 002124 R6164 

12400 002126 86164 

T3500 002114 B6 164 

T3600 002130 86164 

T4800 002132 86164 

T50 002102 86164 

7600 002116 86164 

T7200} §=002134 86164 

775 002104 86164 

T9600 002136 86164 

VECMAP 012654 86178 

VEC) 024504 98044 

VEC2 024514 98064 

WCHF.G 026634 9844 9868 1902078 

WRDCNT (007114 8617a* 

WIBS.F 007470 86174 - 
XBEGIN 024754 9840 98654 10069 

XBX 007260 86174 

KCSR 005072 8617# 

XE OP 026150 9909 9957 9977 10917 100654 
KERR 005114 86174 

XHEAD 011050 8616 86174 

XMTCNT 001376 B6164 9580" 9609 9610" 9669 
XMTLIN 001374 86164 95 368 9546 9548 9570 
XMTSRVY 024062 9581 96.09 9610 96558 : 
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| C7D74=G0 MACY17? 304(1052) 26=JUN@=81 09:46 PAGE 87-12 SEQ 0126 
C7DZAG.P11 24-JUN-87 09:45 CROSS REFERENCE TABLE == USER SYMBOLS 
KPASS) 005106 861/78 
KSTART 024462 R616 979684 9798 
KSTATQ 0111460 8616 86178 
XTCRO 026446 10152@ 
KTCRI 026462 101554 10158 
XTSTN 007644 8617 
| KVEC 0051 86178 
Kx = 160210 86164 
YY z 500 86168 
ZZ = 20 86164 
SAPTHD 001462 86164 
SASTAT= seeeee R617 
i$ATYC 006030 86178 
SATY1 006004 86178 
SATY3 006012 86174 
SATYG 006022 86178 
SAUTOB 001154 86164 
SBASE 001310 86164" 8617" 10266 
SBDADR 001142 86164 
SBDDAT 001146 86164 
$C Dw 001314 R616 86177 
$CDW2 001316 86164 
SCHARC 86174 
SCMTAG 001120 86168 
$cM1 = 86164 
$CM2 = 000014 86164 
S$CMS = 86164 
$cM4 = 000004 86164 
$CPUOP 001262 86164 
SCRAP = 177777 64344 86228 86224 86534 86544 86554 86564 86644 869/74 86984 #87014 
87114 87568 #£«+&87664 88094 88684 88734 89264 893524 90084 90164 90624 
90634 90654 90734 91874 91984 93004 93064 937484 =<93798 $=~<95154 95314 
96094 96104 
SCRLF 001231 86164 2617 
$ODWO 001320 86164 8617 
$DDw1 001322 86164 
S$DDW10 001344 86164 
$DDW11 001346 86164 
$DDW12 001350 86164 
$DDW15 001352 86164 
$DDW14 0015354 86164 
$DDW15 001356 86164 
$DDW2 001324 86164 
$DDW3 001326 86164 
$DDW4 001330 86164 
$DDWS 001332 86164 
SDDW6 001334 86164 
$DDW7 001336 86164 
$DDwW8 001340 86164 
$DDW9 001342 86164 
SDEVCT 001244 616 
EVM 001312 86164* 8617* 
$DOAGN 005 6174 
$E = 000040 66474 86224 86284 86544 86554 86654 86974 86984 87134 87678 #87994 
88744 89334 90634 90744 91604 91994 93074 93808 95324 96094 
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| C7DZ7A=GO MACY?? 30A(1052) 24=JUN-81 09:46 PAGE 87-13 SEQ 0127 
CZ7DZAG.P11 24-JUN-81 09:45 CROSS REFERENCE TABLE == USER SYMBOLS 
SENDAD 005056 8616 86178 
SENDCT 005062 86178 
SENV 001254 86164 8617 
001255 86164 8617 
00471 86174 9610 
0050 86174 
001123 B6164* 8617" 9802" 10068 
001135 86164 8617 
007230 8616 86174 
0011 86164* 8617* 
001 86164 
001132 R6164* 8617+ 9801* 
001254 86164 
001360 86164 
001236 86164 8617 
006250 86174 
001176 86164 8617 
001175 86168 8617 
001140 86164 
001144 86164 
5046 86174 
1 8616 
001462 86164 
001124 86164 8617 
010464 86174 
001155 86164 
001134 86164 8617 
001232 86164 8617 
006247 8617a* 
001126 86164* 8617" 87272 8724 9798* 9870" 9876+" 9881 
001130 86164 
001266 86164 
001272 86164 
001276 86164 
001302 164 
001234 86164 8617 
001264 86164 
001270 86164 
001274 86164 
001300 86164 
001464 86164 
006246 86174* 
001250 86164 8617+ 
001252 86164 8617+ 
001234 86164 8617 
001265 86164 
001271 86164 
001275 164 
001301 86164 
005374 86174 
64 86224 8623 B4284 86524 86534 86544 86554 8656 86654 86974 86984 8701 
87134 8756 87674 87994 8800 88104 8868 88744 8926 89334 9008 90174 90624 
90744 9153 91604 9187 91994 9300 93074 9374 93804 9515 95324 
96094 96104 104634 10464 
001174 86164 8617 
000000 86224 86284 86524 86534 86544 86554 86654 86974 86984 87134 8767# 87998 88104 
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| CZDZA=G0 MACY1? 30A(1052) 24=JUN-81 09:46 PAGE 87-14 SEQ 0128 

hoes 24-JUN-81 09:45 CROSS REFERENCE TABLE == USER SYMBOLS % 
88748 89338 90178 #990628 90634 #90744 91604 9199 93074 93808 95528 96094 96104 

SOVER 005336 86178 

SPASS 001242 86164" 8617" 9800" 

SPASTM 001470 86164 

$PwR 10460 86174 

SPWRDN 010320 8616 86178 

SPWRMG 010454 86178 

SPWRUP 010372 86174 

SQUES 001230 86168 8617 

SREGAD 001200 86164 

SREGO 001202 86164 8617" 10431 10439 

SREG1 001204 R6168  8617* 10429 

SREG2 001206 86168 8617+ 

SREGS 001210 86164  ®8617* 

SREGG 001212 86164 8617" 10437 10449 

SREGS 001214 86164 86172 10635 10447 19657 

SRTNAD 005070 86174 

SSAVR6 010470 86174* 

SSCOPE 005122 8616 R46174 

SSE TUP= 8617 

SSVLAD 005320 86174 

$SVPC = 0 86168 

$SwR = 164000 64414 8616 R617 B622 8628. 8652 8653 8654 8655 8665 8697 8698 8713 
8767 8799 8810 8874 8933 9017 9062 9063 9074 9160 9199 9307 9380 
9532 9609 9610 

SSWREG 001256 86164 8617 . 

SSWRMK = 8617 

STESTN 001240 86164  8617* 

STIMES 001226 RB6164 8617* 9532s 

$TKB 001166 86164 8617 9923 10010 

$TKS 001164 86164 8617 9921 10008 

STMPO 001216 86164 9288 9293" 95372 9539 9550" 9585 

STMP1 001220 86164* 8617 9578 9590" 9690" $731 9735 10459 

STMP2 001222 86164 8617 9688*  9691* 

STMP3 001224 86164 9579 9592" 9689 

$™N = 000037 86164 86224 86284 86524 86534 86544 86554 86654 86974 86984 87134 87674 87994 
oh 88746 892734 90174 90624 90634 90744 #%$1604 91994 93078 93804 95324 96094 

$TPB 001172 86164* 8617* 

STPFLG 001177 86164 8617 

$TPS 091170 86164 8617 

STSTM 001466 86164 

STSTNM 001122 86164* 8617* 8622" 8628" 8652" 8653" 8654" 8655* 8665* 8697* 8698+ 8713+ 8767* 
8799* 8810" 8874* 8933" 9017* 9062* 9063* 9074* 9160* 9199 9307* 9380* 9532» 
9609* 9610* 9887+ 9970 

$TYPE 005440 86174 

STYPEC 005652 86174 

$TYPEX 006002 86174 

SUNIT 001246 86164 

SUNITM 001472 86164 

SUSWR 001260 86164 

$VECT1 001304 86164* 8617* 

$VECT2 001306 86164 

$xXOFF = 000023 8616 8617 

$XON = 000021 8616 8617 

$€xTSTR 005176 86174 
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M 
CZ7DZ7A=GO MACY11 30A(1052) 24=JUN-81 09:46 PAGE 87-15 SEQ 0129 
CZDZAG.P11 24-JUN-81 09:45 CROSS REFFRENCE TABLE == USER SYMBOLS 
$Y = 0000e° 86164 
SSE: Somme, 
AT= weenee 
° = 001514 86164 861784 8654 8879 9092 9095 9114 9135 9139 9205 9210 9216 9231 
9250 9278 9313 9321 9324 9341 9347 9370 9410 9423 94 36 9448 9456 
9459 62 9470 9484 9499 9545 9575 9609 9610 9930 9933 9936 9945 
10020 10023 10026 10029 10032 +%10039 10044 #$#$(}110055 102394 104964 
-ADVAN 007216 8616 8617 
-BEGIN 004624 86164 
-CNVRT 006744 8616 86174 
006740 8616 86174 
-DCLAS 007164 8616 86174 
DELAY 007176 8616 86174 
-DEVIC 007144 8616 86174 
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C2D7A=GO MACY11 30A(1052) 24=JUN-81 09:46 PAGE 88 SEQ 0130 
CZDZAG.P11 24=JUN=81 09:45 CROSS REFERENCE TABLE == MACRO NAMES 
COMMEN 1537@ 86168 
ENDCOM 15498 86164 
“ERROR 861 8622 8635 8648 8652 8653 8654 8655 8673 8679 8687 8695 8697 8698 8746 
8752 8789 8795 8799 8819 8826 8839 8843 8857 8889 8896 8909 8913 8954 80 
8986 1 9005 2050 9054 9062 9063 9093 9096 9104 9112 9115 9123 9124 9136 
9140 9145 9176 9185 9217 9225 9232 9241 9259 9262 9273 9335 9342 9355 9360 
7363 941+ 9417 9424 9437 9449 9457 9460 9463 71 9481 9500 9594 9609 9610 
9622 9631 9637 9701 9704 9708 9720 9740 9931 9934 9937 9946 9959 
9987 10015 10021 10026 19027 10030 10033 10040 10045 # £10056 
ESCAPE 1665  8616@ 
GETPRI 1289" 86164 
GE TSwWR 7 86164 
T 44734 86168 
NEWTST 15964 86164 8622 8628 8652 8653 8654 8655 8665 8697 8698 8713 8767 8799 +#8810 
8874 8933 9017 9062 9063 9074 9160 9199 9307 9380 9532 9609 9610 
PASEND 66774 8617 
2114 86164 8617 
PRGEND 77434 8617 
PRGFRT 68254 8616 
PUSH 21 86164 8617 
REPORT 54324 6440 86164 
SC 66154 861, 
SCOPE 86164 8617 8622 8628 8652 8653 8654 8655 8665 8697 8698 8713 8767 8799 8810 
8874 8933 9017 9062 9063 9074 9160 9199 9307 9380 9532 9609 9610 
Sc 66274 8617 
SETPRI 12574 86164 
SE TUP 13134 86164 
SKIP 1699" 86164 
St ASH 14894 86164 
SPACE 86164 
STARS 14584 86164 8617 8622 8628 8652 8653 8654 8655 8665 8697 8698 8713 8767 #8799 
8810 8874 8933 9017 9062 9063 9074 9160 9199 9307 9380 9532 9609 9610 
SU 14274 86164 | 
TYPBIN 20508 86164 
TYPDEC 20208 86164 
TYPNAM 1790  8616# 
TYPNUM 1987 86164 
TYPOCS 1940# 86164 
TYPOCT 190 86164 
TYPTXT 18574 86164 
FE 67546# 8617 
SCYCLE 74908 8617 
$EOP S64 8617 
SGETFL 65794 8616 
SGETPA 65694 8616 8617 
SHEADE 64434 8616 
SINTSE 68024 9062 9063 9609 9610 
SJUNK 67874 8616 
S$LINEU 65544 84324 8811 8875 9062 9063 9075 9161 9201 9309 
$LVLTS 84694 9062 9063 | 
S$MRESE 65484 8811 8875 9021 9062 9063 9075 9161 9201 9309 9381 9553 9609 9610 
$MRR 83614 8655 ' 
SMRRW 83 8652 
SMRWD 84444 8697 8698 
$MSG 67214 8617 
$PARTS 8543# 9609 $610 
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CZDZA=GO MACY11 30A(1052) 24=JUN-81 09:46 PAGE 88-1 SEQ 0151 
CZDZAG.P11 24-JUN=81 09:45 CROSS REFERENCE TABLE == MACRO NAMES 
663554 8617 


68094 8829 8899 9041 9133 9253 

964 
66494 8622 8628 8652 8655 8654 8655 8665 8697 8698 8713 8767 8799 8810 8874 
8935 9017 9062 9063 9074 9160 9199 9307 9380 9532 9609 9610 
77258 8622 8625 8627 8652 8655 8654 8655 8656 8664 8697 8698 8701 8711 8756 
8766 8799 8800 8809 aehe 8875 8926 8932 9008 9016 9062 9063 9065 9073 9153 


SSNEWT 16324 86164 8622 8628 8652 8653 8654 8655 8665 8697 8698 8713 8767 8799 8810 
8874 8933 9017 9062 9063 9074 9160 9199 9307 9380 9532 9609 9610 


3304 
SETUP 11914 64384 
. SWRHI 1034 


$DB2D 46714 
$DB20 47944 
45744 


45114 
SPOWE 41864 64394 8617 
SRAND 42614 
S$RDDE 38574 
$RDOC 37664 
$READ 335644 
$R2AZ 49384 
$SAVE 539324 
$SB2D 47554 
$SB20 48564 


“$SCOP 24084  6439# 8617 
“$TRAP 40344 64398 


"$TYPE 2936 64384 8617 


oe eee eee —— eee le _—_- — —_—_—— 





C 11 
CZDZA=GO MACY11 30A(1052) 24=JUN-81 09:46 PAGE 88-2 SEQ 0132 
CZDZAG.P11 24-JUN=81 09:45 CROSS REFERENCE TABLE == MACRO NAMES 


-$40CA 9554 
1170 S094 
. ABS. 031562 000 


ERRORS DETECTED: 0 
CZ7DZAG.BIC,CZDZAG. SEQ/CRF /DOC/NL : TOC=SYSMAC.C5,CZDZAG.P11 
RUN-TIME: 16 22 1 SECONDS 

RUN-TIME RATIO: 48/40=1.1 

CORE USED: 51K (101 PAGES) 


DOCUMENT PAGES: 132 
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